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Westmeerbeek, december 82 


Beste leden, 


We besluiten onze redactionele activiteiten van 1982 met dit extra 
dikke nummer (80 pagina’s). Vele inzenders zullen bemerken dat hun 
bijdrage nog niet aan bod gekomen is. Voor volgend jaar hebben we 
echter al materiaal klaar voor minstens 3 nummers ... een grote luxe! 
Magen we U vragen uw abonnement voor 1983 vóór 1 januari te hernieuwen 
zodat we nummer 14 tijdig aan alle leden kunnen versturen. MIKROBEL 
82 was beslist een succes : de opkomst en belangstelling was zeer 
groot, diegenen die niet konden aanwezig zijn kunnen op de laatste 
pagina van dit nummer even de sfeer proeven. We willen hier ook alle 
medewerkers en standhouders bedanken voor hun aanwezigheid en inzet. 
We reserveren alvast de feestzaal van Aarschot voor volgend jaar. 
In April 85 houden we waarschijnlijk onze ’kleine’ bijeenkoast ор 
Tongelsbos, daarover meer in volgende edities. De activiteiten rond 
DAIpc zijn de laatste maanden koortsachtig gestegen : de firma INDATA 
zet zich in om nieuwe apparaten en uitbreidingen op de markt te brengen. 
Binnen DIDAISOFT wordt er druk vergaderd en gewerkt : Bruno heeft 
de idee naar voor gebracht om van het engelse handboek een degelijke 
nederlandse versie te maken, de taken zijn reeds verdeeld, wij houden 
У op de hoogte.DIDAISDFT zal ook spoedig de eerste didactische уег- 
zameltape uitbrengen. Ook de kwaliteit van de beschikbare software 
wordt steeds beter : voor de spelletjes-fanaten is DAI-PANIC beslist 
een enorme verrassing, de mensen die graag zelf programmeren zullen 
aan TOOLKIT 4 veel plezier beleven. Het ledenaantal stijgt enorm : 
we zullen spoedig ons 1000-ste lid mogen verwelkomen. In dit nummer 
vindt U ook een uitgebreid artikel over SUPER NOISE GENERATOR, knut- 
selaars vinden hier alle nodige informatie om deze uitbreiding te 
maken, maar ook de mensen die niet houden van solderen vinden hierin 
veel hard- en software informatie. 

This is the last issue of 1983, please be so kind to renew your sub- 
scription before ist of january so that we can update the mailing 
for Newsletter 14. There were а lot of visitors on MIKROBEL 82 : we 
think we will organise 2 meetings a year : a small one in Tongerlo, 
and the 'big' one in Aarschot. In this issue you will find some inte- 
resting new software : DAI-PANIC and Toolkit 4 are really exciting. 
We will soon welcome our member number 1900... 





we wish you the best for 1985, keep on keying... 


W. Hermans 
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NEW SUBSCRIPTION RATES : 


BENELUX : 900 Bfr 
EUROPE : 1000 Bfr 
OUTSIDE EUROPE (AIRMAIL) : 1400 Bfr 


PAY TO : DAInamic-SUBSCRIPTIONS 
geess B.Van Rompaey 


Bovenbosstraat 4 
3044 HAASRODE BELGIUM IN BELGIAN FRANCS. 


1. SEND CHEQUE 
2. PAY ОМ BANCACCOUNT NR 250-00455353-74 
Alnamic 13 - GENERALE BANK LEUVEN c/o DAInamic 
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Ik wil beginnen met mijn excuses te maken voor enige slippertjes in het vorige 
artikel. Om de redactie werk te besparen had ik niet een tamelijk groot aantal 
losse blaadjes ingestuurd met respectievelijk tekstien) en listings maar het 
hele artikel achter elkaar getikt. Prompt slopen er dan ook enige foutjes in die 
programma’s. Ik hoop echter dat het artikel duidelijk genoeg was omdeze zelf te 
verbeteren. 


Nu het onderwerp voor deze keer : de kleuren 16 t/m 19 als hoofdzaak еп de kleu- 
ren 20 t/m 25 als bijzaak. 

Om maar meteen met het laatste te beginnen, het zou een goede zaak zijn als al 
onze inzenders zich bij tekenen in de vier-kleuren modes zouden bezighouden met 
de kleuren 20 t/m 23. Het is toch zo simpel. Aan het begin van het programma 
geven we een COLORG A B C D met А,В,С en D de door ons gewenste vier kleuren. 
Geven we nu een teken opdracht in het programma dan gebruiken we kleur 20 als we 
in kleur А willen tekenen, 21 voor B, 22 voor С en 23 voor kleur D. 

Het is trouwens een goede gewoonte eerst de COLORG-instructie te geven en dan 
pas de MODE-instructie. We voorkomen hiermee dat het beeld eerst fel geel wordt 
doordat de vorige COLORG-instructie dit als eerste kleur had en dan pas het nu 
gewenste zwart. Bij de 15-kleuren modes wordt overigens de eerste kleur van de 
COLORG genomen als achtergrondkleur en de rand krijgt dan ook die kleur. Dit is 
dan niet met een FILL 0,0 XMAX,YMAX К weg te krijgen maar alleen met een nieuwe 
COLORG en daarna een nieuwe MODE 1,3 of 5. 

Het voordeel van het gebruik van vooral anderen van kleur 20 t/m 25 is gelegen 

i het feit dat een nieuwe gebruiker de voor hem slecht uitkomende kleurencombi- 
natie gemakkelijk kan wijzigen. Op mijn RGB monitor kan ik uitstekend gebruik 
maken van COLORG O 1 2 3 maar ik weet zeker dat de zwart/wit kijkers mij dan 
zullen vervloeken wat ik omgekeerd doe met 4 5 8 12, 


Voordat we nu aan de kleuren 16 t/m 19 toekomen moet ik eerst iets uitleggen 
over de beeldopbouw intern in het geheugen. Is mijn uitleg niet duidelijk ge- 


noeg slaat U dan eens de artikelen van N.J.Looije of J.Boerrigter op in vorige 
nummers. 


Het beeldgeheugen kan gezien worden als twee boven elkaar (of naast elkaar als 

U dat beter aanspreekt) gelegen geheugens die samen het uiteindelijke beeld be- 
palen. De geheugenbanken zijn ook hardwarematig gescheiden - de B-bank voor de 
even genummerde bytes en de C-bank voor de oneven genummerde bytes. Voor het ma- 
ken van programma's is dit echter voor de programmeur van geen enkel belang. 


Voor de duidelijkheid zij nog even herhaald dat wat nu volgt de beeldopbouw voor 
vierkleuren modes (2,4,6 % 8) is. De zestienkleuren modes hebben een andere 
structuur, die hier niet aan de orde is. | 
De kleur die een punt op het beeld zal aannemen wordt als volgt bepaald : 
Bij elk punt horen twee bits die bepalen in welke van de vier kleurregisters 

de kleur voor dat punt moet worden opgezocht. | 
Eerst het standaardgeval - we geven na reset een COLORG 0 3 9 14 еп dan MODE 4. 
Het gehele beeld zal dan even zwart warden om vervolgens ор te schuiven tot 48. 
Tikken we nu UT in kunnen we met Display vaststellen dat op de linecontrolbytes 
na alle bytes op 00 staan. (DBOOO B500 bv). Wat gebeurt er nu als we deze bytes 
een andere waarde geven. We proberen FOKEHBOOO, HAA en zien vier stippen op het 
beeld verschijnen met een rode kleur. Voor diegenen die nog weinig ervaring heb- 
ben met bit-informatie 8567210101010. Nu vervolgen we met POKE#ROO2, #44. 
(#56=01100110) Nu verschijnen er twee kleine rode lijntjes naast de puntjes. 
РОКЕЯВОО1,ЯҒО : Van de vier rode puntjes worden de linker twee geel en er komen 
blauwe puntjes bij. Met enig nadenken kunnen we uit deze voorbeelden beredene- 
ren hoe de kleur tot stand komt. 


DAInamic 13 - 


3 


01 


bit in even byte bit in oneven byte kleur algemeen kleur in voorbeeld 


0 ü 20 О = zwart 
1 29 21 3 = rood 
0 1 22 9 = blauw 
1 1 25 14= geel 


Het is echter mogelijk ook in vier kleuren mode toch meer dan vier kleuren te 
hebben. Het artikel van N.J. Looi je over de video screen ram geeft hier veel in- 
formatie. Ik wil dit hier niet nogmaals bespreken maar me er toe beperken vast te 
stellen dat we in elke door ons gewenste regel de colorcontrolbyte zo kunnen kie- 
zen dat de kleurregisters een voor een veranderd kunnen worden. 

Per regel kan dan een van de vier kleuren veranderd worden. 

Met een beetje handig programmeren kan dit er voor zorgen dat we elk punt pre- 
cies die kleur (uit 4 kleuren) kunnen geven dat we ons wensen, terwijl we toch 
ook over alle kleuren over het hele beeld gezien kunnen beschikken. 


Maar nu terzake. Ik wilde het hebben over de kleuren 16 t/m 19. In een uitleg 
die deze naam nauwelijks verdient tracht het handboek ons duidelijk te maken wat 
de mogelijkheden zijn met deze speciale kleurenset. 
In het begin is het nog te volgen, de kleuren boven de 16 zijn geen echte kleu- 
ren maar speciale toepassingen. De kleuren 20 t/m 25 refereren aan de kleuren 
van de COLORG-instructie en de kleuren 16 t/m 19 zetten bytes in video ram aan 
of uit. Hier komen we terug op de inleiding; de kleur van elk punt in beeld 
wordt bepaald door twee bits. Deze twee bits zitten in twee verschillende bytes 
een met een even nummer en een met een oneven. Het oneven nummer steeds een 
groter dan het even nummer. Door nu een tekenopdracht te geven met kleur 17 
zetten we de bits op een die horen bij de even bytes. 
Als we na reset en MODE 4 de opdracht FILL 0,0 44,44 К geven maakt het achteraf 
niets uit of voor K nu 5, 17 of 21 gekozen hebben. 
Als we echter niet na reset maar na een ander programma 21 gebruiken kan het 
zijn dat ons vlak niet groen is maar een andere kleur. Toch is 21 beter dan 5 
omdat we na dit andere programma met gebruik van 5 een kans hebben de medede- 
ling COLOUR NOT AVAILABLE te krijgen. 
Bij tekenen in kleur 17 is dit risico er niet. 
We demonstreren verschil van tekenen in kleur 17 en S(evt 21 na juiste COLORG) 
We tikken MODE 4 

FILL 22,22 66,66 22 

FILL 0,0 44,44 5 
en zien dat het groene vlak een rechthoek is die een deel van de oranje 
{22=10 standaard) rechthoek heeft "weggehapt". 
Tikken we de opdrachten nogmaals in en gebruiken we dan kleur 17 in plaats van 
kleur 5 zien we dat het groene vlak geen rechthoek is maar een soort L. 


Het deel dat de rechthoeken elkaar overlappen is nu een nieuwe rechthoek met 

de kleur wit. 

We analyseren: door de MODE 4 opdracht zullen we (tenzij we van MODE 4A kwamen) 
alle bits die de kleur bepalen op nul zetten. Dit geldt ook als we niet kleur 

О als eerste kleur van de COLORG hadden al is het beeld dan wel een andere kleur. 
De eerste FILL maakt een oranje rechthoek en zet in het geheugen de bi jbehoren- 


De tweede FILL zet bij gebruik van kleur 5 de bit van de even bytes op een en 

de bits van de oneven bytes op nul, Dit betekent dat de bits van de oneven bytes 
die bij de eerste FILL een waren geworden nu weer nul worden. 

De resulterende kleur is dus de kleur die het laatst werd gegeven nl groen (5). 
Als we bij de tweede FILL de opdracht geven in kleur 17 worden alleen de bits 
van de even bytes op een gezet. De bits van de oneven bytes worden NIET уегап- 
derd. Dit betekent dat het gebied waar de twee rechthoeken elkaar overlappen bij 
de eerste FILL enen in de oneven bytes kreeg en bij de tweede FILL met kleur 17 
enen in de even bytes dus deze rechthoek kleur 25 (normaal wit) kreeg. 
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We kunnen dus met 17 alleen de bits van de even bytes op een zetten. Evenzo 
kunnen we met kleur 16 deze bits weer uitzetten. 

Met kleur 19 kunnen we dan de bits van de oneven bytes op een zetten en met 
kleur 18 kunnen we ze weer op nul zetten. 


Wat betekent dit nu voor de programmeur ^? 

Volgens het handboek zouden we hiermee animatie effecten kunnen verkrijgen maar 
hiervan moeten we ons toch niet te veel voorstellen. 

Het effect is er theoretisch wel maar het tekenen gaat toch te traag om uitzon- 
deringen daargelaten een film effect te verkrijgen, 


Maar we zullen eens zien hoe een en ander te verwezenlijken is. 

We maken een tekening in kleur 17 met COLORG O 5 x x en zien deze tekening dan 
in kleur S(groen) op het beeld. Als we voor x іп de COLORG nul kiezen kunnen we 
hierna tekenen wat we willen in kleur 19 zonder dat dit zichtbaar wordt. Kleur 
19 zet enen in de oneven bytes en dus worden de punten of kleur 22 als de andere 
bit niet een is of kleur 23 als de andere bit wel een is. 

Maar dan wordt dit punt zwart. Ook groene punten worden zwart als er over heen 
getekend wordt: dit kunnen we voorkomen door ook kleur 25 groen te laten zijn 
Dus door COLORG 0 5 O 5 te gebruiken. 


Als nu de nieuwe tekening met kleur 19 klaar is geven we COLORG 005 5. 


Alle punten met twee bits aan (kleur 23) zijn groen en alle punten met alleen 
de bit van de oneven byte op een (kleur 22) zijn groen. 

De punten waarvan beide bits op nul staan (kleur 20) zijn zwart en alle punten 
waarvan alleen de bits van de even bytes op een staan (kleur 21) zijn zwart. 
We zien dus niets meer van de oude tekening en wel alles van de nieuwe. 
Vervolgens gaan we tekening 1 uitwissen. Alle opdrachten van kleur 17 opnieuw 
maar nu met 16 (bits van even bytes op nul) of als dat sneller is met een 

FILL 0,0 ХМАХ,ҰМАХ 16. Dan een nieuwe tekening (3) in kleur 17 maken. 

COLORG O 5 O 5 en tekening 3 is zichtbaar en tekening 2 niet meer. 

Tekening 2 uitwissen met kleur 18,tekening 4 in kleur 19 maken en dan weer 
COLORG O O 5 5. tekening 4 is zichtbaar en tekening 3 niet meer. 

Tekening 3 uitwissen met kleur 14,tekening 5 in kleur 17 maken en dan weer 
COLORG O 5 0 5. enzovoorts,enzovoorts. 


Lë 


We kunnen dus bv een auto tekenen die dan zeer gelijkmatig over het beeld kan 
bewegen. Als de auto echter uit te veel lijnen bestaat is het tempo toch wel te 
laag om van animatie te kunnen spreken. Nog net redelijk haalbaar is een teke- 
ning met zo’n S a 6 lijnen van elk ongeveer twintig punten. Anderen hebben mis- 
schien een minder kritische instelling en vinden een groter aantal nog ассер- - 
tabel. Waar kunnen we dit dan wel voor gebruiken ? Ik denk aan een grotendeels 
statische tekening (in kleur 25) met slechts een paar bewegende delen, zoals 

een klok. Bedenk echter wel het nadeel dat U bij deze animaties aan twee kleu- 
ren (voor- en achtergrond) gebonden bent. 


Toch zijn er wel toepassingen te bedenken waar deze facilteit in DAI-basic erg 
van pas kan komen. J. Visser gebruikt het bv zeer zinvol in zijn 3-dim doolhof. 
De situatie die de speler ziet vanuit zijn standpunt wordt op het scherm getoond. 
De speler kiest hierop een actie voor beweging het programma tekent dan voorlo- 
pig onzichtbaar de nieuwe situatie. Dan wordt door een COLORG het beeld zeer 

snel aangepast. 
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ТЕ heb zelf ook een doolhofprogramma geschreven dat mbv de kleuren 16-19 een 
bepaald deel van het scherm zichtbaar maakt. Je overziet dus altijd maar een 
klein deel van het doolhof. 

Dit wordt als volgt gedaan. De tekening van het doolhof wordt gemaakt in kleur 
17, vervolgens zetten we een blok (FILL A,B C,D 19) neer in kleur 19. 

Na een COLORG Q O 14 9 is nu het doolhof onzichtbaar want kleur 17 betekent 

even bytes en dat bij oneven bytes gelijk nul kleur 21 dus O=zwart. Op de plaats 
echter waar het blok staat is de achtergrond geel en daar waar doolhof en blok 
beide staan wordt de resulterende kleur 23 dus 9=blauw. 

Het blok kunnen we dan laten bewegen door steeds aan de ene zijde er een lijn 

in kleur 19 bij te tekenen en aan de andere zijde er een te wissen mer kleur 18. 
Een andere aardige bijkomstigheid is de mogelijkheid een bepaald deel van het 
beeld een geinverteerde kleur te geven. 

Denk maar met mij na: tekening maken in kleur 17, bepaald deel (FILL) kleuren in 
kleur 19, Geef dan COLORG O 12 12 0 en de tekening is blauw met zwarte achter- 
grand. Maar op de plaats van de FILL is dit juist omgekeerd. Zo kunnen we bij 
bepaalde tekeningen delen extra laten opvallen of aanwi jzen zonder dat dit de 
rest van de tekening verstoort. 


Hij dit artikel zijn nog een aantal programma’s gevoegd die laten zien hoe we ор 
een slimme manier gebruik kunnen maken van de kleuren 16-19, 


Frank H. Druijff 


REM COLORS 15-19 DEMO / Е.Н. DRUIJFF 2/82 
COLORG O oo O:MODE 6 

FOR Х=0 TO XMAX-24 STEP 2 

DRAW X,3 X+12,50 18:DRAW X42,3 X+14,50 19 
DRAW Х+12,50 X421,3 18:DRAW Х+14,50 X+23,3 19 
DRAW X,5 Х+21,5 18:DRAW X+2,3 X423,3 19 

FILL X+10,0 X*12,2 18:FILL Х+12,0 X+14,2 19 
COLORG O O 14 14 

DRAW X*1,3 X+15,50 16:DRAW X€3,3 X+15,50 17 
DRAW Х+15,50 X*22,3 16:DRAW X+15,50 X+24,3 17 
DRAW X+1,3 Х+22,5 16: DRAW X+5, A X424,3 17 
FILL X*11,0 X*13,2 ТАРПА X*13,0 X*15,2 17 
COLORG о 14 0 14 

NEXT 


REM COLORS 16-19 DEMO / F.H. ЗВЕР 2/82 
COLORG О О Q 0: MODE Gr DRAW 0,2 XMAX,2 25 
FOR Х=0 TO XMAX-40 STEP 2 

DRAW X42,3 X,9 18:DRAW X,9 X+30,9 18 

DRAW Х+50,9 X424,3 18:DRAW X+15, 10 X+15, 30 
DRAW Х+4,5 X+2,9 19:DRAW Хғ2,9 Х452,9 19 
DRAW X432,9 Х+26,5 19:DRAW X*17,10 X*17,30 
COLORG о à 12 12 

DRAW X43,2 X+1,9 16:DRAW Х+1,9 X+31,9 16 
DRAW Х+51,9 X+25,3 16: DRAW X+16,10 X*16,30 
DRAW X*5,3 X*3,9 17:DRAW Х+5.9 X433,9 17 
DRAW Х+55,9 X*27,3 17: DRAW X+18,10 X+18, 30 
COLORG О 12 0 12:NEXT 
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10 REM COLORS'16-19 DEMO / F.H. DRUIJFF 2/82 
20 COLORG О 0 0 G:MODE 4:D=1 : 

50 РОВ Х=0 TO XMAX-25:D-1-D:E-18-D-D:F-E*1: 1=Х+0 

40 221452: 1112I14511: I1S21413: I22z21422: 12451424 

30 DRAW 1,3 111,50 E:DRAW 111,50 122,3 E:DRAW 1,5 122,5 E: 
60 DRAW 12,3 113,50 F:DRAW 115,50 124,5 F:DRAW 12,5 124,5 
70 COLORG 0 54D 5-5%0 5: МЕХТ: GOTO 20 


FILL I+10,0 I11,2 E 
F:FILL 1+12,0 I13,2 F 


10 REM COLORS 16-19 DEMO / Ғ.Н. DRUIJFF 2/82 

20 COLORG O O O O:MODE 4 

30 FOR X-0 TO XMAX-25 STEP 2:FOR Ј=0 TO 1:FOR 1-0 TO 1 

40 Kz15*J*J4L: I-X4J4L4L: REM PICTURE MOVES FROM LEFT TO RIGHT 
50 15=1+5: 120=1+20: DROW 1.5 15,6 K:DRAW 1,9 15,6 К 

60 DRAW 15,6 120,6 K:DRAW 120,6 I+17,3 K:DRAW 120,6 1+17,9 К 
70 NEXT:COLORG О 5-5XJ 5%] 5: МЕХТ: МЕХТ: БОТО 20 


ЖЖЖЖЕЖЖ AKK K ЖЖ ЖЖ ЖЖ 


* * 
Ж ERRATA DAI рс SCHEMATICS 3 
x * 


ЖЖЖЖЖ ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ 


The following failures have been found in the diagrams of the DAI. 
Flease update your copies accordingly. 


Sheet 5: The pin lay-out of the ROM*s ME36000 are reversed. 
The correct lay-out is: 


AO ріп 
Al pin 
А2 pin 
pin 
pin 
pin 
pin 
pin 


A8 pin 25 БО pin 9 
A" ріп 22 Di pin Lo: 
ALO pin 19 D2 pin 11 
Aili pin 18 05 pin 13 
512 pin 21 04 pin 14 
05 pin 15 
Бе pin 16 
D7 pin 17 


= bh C b 0 0 (0 


Sheet 7: polarisation of the diodes 045, D44, 045 has to be 
reversed. 


Sheet 10: R101 has a value of 5,6 kohm. 


dan Boerrigter 
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program identification 


title 2 DEMO POELS 


Christian POELS 
author 
purpose demonstrates graphic capabilities of DAIpc 


comment BREAK-key is disabled in line 53846 





5 MODE O:PRINT CHR$(12):COLORT 9 15 9 9:РОКЕ #BA2D, 90: CURSOR 0, 12 

6 PRINT " = DEMO POELS -":CURSOR 30,5:PRINT "Christian PDELS / 29-7-1982" 
7 IF GETC< 732.0 THEN 7 

a COLORT 13 10 0 

9 GOSUB 50000 


10 MODE 4:COLORG В 3 11 0 
20 FOR X-0.0 TO XMAX/2.0 STEP 5,0: C=X46.0/XMAX+21.0 
30 DRAW Х,0 XMAX/2, 28 X1YMAX/XMAX С 

40 = DRAW ХМАХ/2-Х,0 0, 2#X#YMAX/XMAX C 

50 DRAW X,YMAX XMAX/2, YMAX-21 X1YMAX/XMAX C 
60 БАШ XMAX/2-X, YMAX 0,ҮМАХ-2%ХЖҮМАХ/ХМАХ С 
70 DRAW X*XMAX/2,0 ХМАХ,2%ХЖҮМАХ/ХМАХ С 

80 DRAW ХМАХ-Х,О ХМАХ/2,2%ХЖҮМАХ/ХМАХ С | 
90 DRAW X+XMAX/2, УМАХ ХМАХ, УМАХ-2%Х%УМАХИХМАХ C BE 
100 DRAW ХМАХ-Х, УМАХ ХМАХ/2,ҮМАХ-2%ХЖҮМАХ/ХМАХ С 
110 — NEXT:WAIT TIME 250 

150 MODE 6 

170 COLORG 1300 0 

180 FOR BDU-1.0 TO 4.0:MODE 6: XX=RND(XMAX) : YY-RND(YMAX):FOR 0=1.0 TO 25.0: X=RN 
D (XMAX-30. 0) : Y-RND ( YMAX) | 

190 DRAW X,Y X+30,Y O:DRAW XX,YY X,Y O: DRAW XX,YY X430,Y 0 

200 NEXT 

210 WAIT TIME 100:NEXT 

320 REM ALEATOIRE 

330 МОПЕ O:PRINT CHR$(12):PRINT "TEST D’HOMOGENEITE DE LA FONCTION "RND'":WAIT 
TIME 150 

340 CLEAR 1000:DIM CX(15.0) :COLORB О O 0 O:MODE 1:MODE 1 

550 — XX-RND(15.0) 41.0: CE CO -CZ (ХХ) 1. 0: IF CX(X%)=46.0 THEN 370 

360 FILL CX(0O-1.0,XZ$4 CXOCO, (5+1) 84-1 XX:GDTO 350 __ 

370 REM DESSIN E ad 

380 MODE &:COLORG B 1 0 0:H1-240.0:V1-180.0 Me 

390 FOR 1=0.0 TO 9540.0 STEP 53.0 

400 X=14P1/180.0 

410 Н=150.0+110.0#%С05 (2. O8X) COS (X) 
420 V=180.0+150. OFSIN(3. OX) SIN OX) 
430 DRAW V,H У1,Н1 1:H1-H:V1-ViNEXT I 
440 FOR 0=1.0 TO 20.0:COLDRG RND(16.0) RND(16.0) O O:WAIT TIME 50:МЕХТ 
450 MODE &:COLORG O 1 3 14:FILL XMAX/2-3, YMAX/2-3 XMAX/2+3, УМАХ/2+3 23 
450 FOR Y-0.0 TD YMAX/2.0 STEP 3.0 

470 DRAW O,Y ХМАХ,0 21:DRAW 0,0 XMAX,Y 22 

480 DRAW O,YMAX XMAX,YMAX-Y 21:DRAW XMAX,YMAX O,YMAX-Y 23 

490 DRAW УЗХМАХ/УМАХ, О O,YMAX 21:DRAW 0,0 Y£XMAX/YMAX, YMAX 22 

300 DRAW ХМАХ,0 ХМАХ-ҮЖХМАХ/ҮМАХ,ҮМАХ 21:DRAW XMAX,YMAX ХМАХ-ҮЖХМАХ/ҮМАХ,0 23 
510 NEXT 
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520 FOR T-100.0 TO 0.0 STEP -10.0:GOSUB 550: NEXT 
550 Т-2.0 

540 РОК M-1.0 ТО 90.0:808UB 550: МЕХТ: бОТО 570 
550 COLORG O 3 14 1:WAIT TIME T:COLORG 0 14 1 3:WAIT TIME Т 
560 COLORG O 1 5 14:WAIT TIME T:RETURN 

570 MODE 6:N-9.0:CDLORG O N 5 A 

580 ` 4=287.0:8В=112.0:С=47.0:0=142.0:9=15.0:2=127.0:Н=167.0 
390 DIM CO(2.0) 

500 —С0(1.0}=5.0:С0(2.0)=$.0:25=1.0 

810 FOR 1=1.0 TO J 

620 DRAW A-I,F A-I,B+d N:DRAW Н, В+] A-I,B4J М 

650 DRAW C+I,F C+I,B+J N:DRAW Н,В+0 C+I,B+J М 

640 DRAW C+I,F C+I,D-J N:DRAW H,D-J C+I,D-J М 

5650 DRAW A-I,F А-І,0-Ј N:DRAW H,D-J A-I,D-J N 

660 А=А-І:В=В+(Ј-1):С=С+1:0=р- (3-1) 

670 NEXT I 

630 FOR NB-1.0 TO 60.0:23-2.0 

590 IF NB/2.0=INT(NB/2.0) THEN Z3-1.0 

695 FOR BOUCLE=1.0 TO 8.0 

700 Я-287.0:11ғ1.0:12-15.0:13-1.0:ІҒ 21>1000.0 THEN Z1=0.0 
710 Z1=Z1+1.0:GOSUB 740 

720 11=15. 0: 12=1.0: I5--1.0 

750 Z1=Z1+10.0:GOSUB 760 

740 NEXT BOUCLE:GOTO 840 

760 FOR I-I1 TO I2 STEP I3 

770 FILL (8*1)-1,128 (A-1),140 CO(Z3) 

780 171-71%1.0:72-71/2.0:1ІҒ INT(Z2)<>Z2 GOTO 800 
790 БОТО 810 

800 FILL (А+1)-І,128 (A-1),140 О 











810 -А-І 

820 МЕХТІ 
850 RETURN 
840 MODE & 


850 COLORG 9 2 14 O:FOR YZ=0 TO УМАХ STEP S:DRAW 0,УХ XMAX/4, УМАХ-УХ 21 

860 DRAW XMAX/4,YMAX-YZ XMAX/2,YX 22:DRAW XMAX/2,Y% 3% (ХМАХ/4) , УМАХ-УХ 21: DRAW 
31(XMAX/4), YMAX-YX ХМАХ, УХ 22 

870 NEXT 

880 WAIT TIME 200 

40000 REM KALEIDOSCOPE 

40010 COLORG 8 1 5 S:MODE ó 

40020 FOR IZ-1 ТО 20: X1Z=RND (XMAX/2. 0) : YLZ-RND (ҮМАХ/2. 0) : XX TX-RND (XMAX /2. 0) : YY1X. 
-RND (YMAX/2. 0) 

40030 X2X-YlZEXMAX/YMAX: YZX-X1Z1YMAX /XMAX : XSZ-XMAX-X22: УЗИ =: XAL=XMAX-X 1: VAL= 
Yi 
40040 XX2XZ-YY1ZEXMAX/YMAX: YY2Z=XX 1713 YMAX /XMAX : XX 342XMAX-XX2.: YYSZ-YY2.: XX AX-XMAX 
-XX1Y: YYAY-YY1 

40050 XSZ-XAX: YSZz YMAX-Y1U: ХАХ=ХЗУ: Y&- YMAX-Y32.: Х7Ж=Х2%: YTE- YA 

40050 XXSZ-XXAU: YYSUSYMAX-YY1: XXoZ-XX3: YY&4As YMAX-YY SU: ХХ =ХХ2 И: ҮҮ7Х=ҮҮБХ 
40070 XBX-X14:YBZ-YS 

40080 XXBSZ-XX1Z:YYB8X-YYS 

40090 CZ=RND(4.0)416.0:FILL Х17,Ү17 XX1X,YY1X CZ:FILL X24,Y24 XX2X,YY2Y CL:FILL 
X3Z,Y3X XXSX,YY34 CX:FILL Х47,Ү47 XXAX,YYAY CX 

40100 FILL X5%,Y5S% XXSZ,YYSZ CY:FILL X6Z,Y67Z XX6XZ,YY6Z СЕНЕ X7Z,Y7X XXTZ,YY7X 
CX:FILL X8Z,Y8X ХХӨХ,ҮҮВХ CX 

40110 NEXT:COLORG RND(16.0) RND(15.0) RND(16.0) RND(16.0):BÜTO 40020 

50000 REM Du est le POKE?!?... 

53846 РОКЕ #52, #84: RETURN:REM Bien vu! 

60000 REM 
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Ұз At 
XX Titel: MICROCOMPUTERS IN HET ONDERWIJS 1t 
$$ natuurwetenschap en techniek x$ 
%% Auteur: Jan Roelants,ing. ax 
$$ Uitgave: 1982, Van In - Lier, Malmberg - Den Bosch %% 
$$ ISBN: 90 304 10441 її 
1t Prijs: Bfr 590,- Ұз 
%% Aantal pagina’s: 309 ax 
3% $t 


ноа: 


Het doet plezierig aan om іп de groeiende berg van literatuur 
over (micro-)computers in het onderwijs een uitgave tegen te ko- 
men, waarmee leraren in de technische en natuurwetenschapeli jke 
vakken aan de slag kunnen.Het boek van Jan Roelants biedt daartoe 
een grote hoeveelheid software. 


De inhoud valt uiteen in een algemeen gedeelte (7100 pagina’s) 

en een software gedeelte. Het algemene gedeelte bestaat groten- 
deels uit een vergelijking уап de basic dialecten van CBM 5052 
APPLE II, DAI, TRS 80 LEVEL II, P2000T PHILIPS en SORCERER. 

Met name de voor het onderwijs zo belangrijke edit en grafics 
mogelijkheden komen uitvoerig aan de orde. Dat de DAI daarbij 
zeer gunstig afsteekt, zal U nauwelijks meer verbazen. 

De vele listings die daarna volgen zijn steeds afkomstig van een 
der eerder genoemde microcomputers. Met de informatie uit het al- 
gemeen gedeelte kan de lezer de programma’s aanpassen aan zijn 
eigen micro. Dat zal soms voor een beginnend programmeur niet 
meevallen. Toch lijkt mij deze opzet te verkiezen boven een weer- 
gave van alle listings in b.v. de BASICODE-norm. 

Dok voor niet onderwijsgevenden kan het algemeen gedeelte zeer 
nuttig zijn. 


In het tweede gedeelte van "Microcomputers in het onderwijs" ko- 
men aan de orde: 

— natuurkunde (4 ргодгатта” ei 

- mechanica (4 programma’ 5) 

- sterkteleer (1 programma) 

- elektriciteit (4 programma’s) 

- regel techniek (2 programma' s) 

— digitale techniek (1 programma) 

— wiskunde (3 programma’s) 

— tekenen van de ruimte (1 programma) 

Steeds wordt de eigenlijke listing vooraf gegaan door een analyse 
van het probleem en een bespreking van het programma (flow charts). 
Van de grafische gedeelten zijn een aantal screencopies opgenomen. 


This book, together with the programs on tape, 
is available from DAInamic. 


— BOOK + programs on audio : 990 Bfr 


- BOOK + programs on DCR :1100 Bfr 
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Het merendeel van de programma’s is volgens eenzelfde stramien 
opgebouwd. Centraal staan een of meer formules behorende bij een 
natuurkundige of technische situatie. In een invoergedeelte wor- 
den aan de gebruiker van het programma de parameters behorende 
bij de situatie gevraagd. De fysische variabelen (kracht, snelheid 
spanning,...) en hun onderlinge samenhang behorende bij de gege- 
ven situatie wordt door de computer berekend en zo mogelijk gra- 
fisch weergegeven. De computer wordt dus primair gebruikt als 
rekenmachiene, waarmee de samenhang tussen verschillende varia- 
belen snel kan worden doorgerekend en gepresenteerd. 


Wie verwacht een aantal programma’s aan te treffen die direkt 

in de klas bruikbaar zijn (de titel doet dit vermoeden), zal waar- 
schijnlijk teleurgesteld worden. Tussen het didaktisch gebruik 

van de microcomputer bij het onderwijs in de natuurwetenschappen 
en de gepresenteerde programma’s ligt een lange weg. 

Terecht staat in de motivatie door de uitgevers:"Dit boek is 
slechts een begin, het openen van een poort". 


De natuurkunde- of techniekdocent, die kennis heeft gemaakt met 
de microcomputer en die kennis bruikbaar wil maken voor zijn vak, 
vindt in dit boek de helpende hand van dan Roelants en kan zo 
de eerste stap zetten op een lange moeizame weg. 
ТВЕВСКХ 
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DAY PAN ic by Marco van Meegen 


Welcome in the house of horror E 


You are captured in the house of horror and there 
is no possibility to escape. 

Horrible monsters follow you more or less 
(depending on the playing level). 

Your only weapon is a shovel. Dig holes 

and shut them,when a monster falls into such a 
hole,to save your life. The monster will fall 
down to the floor below. There are three kinds 

of monsters (1,2,3).А monster 1 is dead,if it 
falls down one floor,a monster 2 must fall down 
two floors,a monster 3 three floors. 

So,to kill a monster 3 you must dig 

three holes,exactly one beneath the other. 

You can jump through a hole without danger. 

If a monster hangs in a hole,you can not pass the 
hole,but another monster can ! 


The air in the house is limited. If it runs out, 
the game is finished.You can see the remaining air 
at the top af the screen. 


You can not dig two holes,which 
overlap. So you must shut the hole 
first,to dig another one a little 
displaced (e.g. to get a monster 2). 


You control the man with the cursor keys, 
stop him with "6", 

open a hole with "8" and 

shut a hole with "9", 

the program will notice the pressed 

key and execute it as soon as possible. 


monster : 1 2 
points : 10 20 50 
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IF YOUR EPSON-PRINTER HAS GRAPHIC CAPABILITIES, 
¥-B@ WITH GRAFTRAX,MX-G2 OR MX-160, 
THEN YOU CAN PRINT ALL THOSE BEAUTIFUL DAI-COLORS 
—— IN > GREY— SCALES zi 
available on TOOLKIT 4 
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; 
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system- | 
program- 
unit 







SYSTEM — PROGRAM — UNIT contains in one machine 
language part following routines : 


* renumber step - mode 
add  — made 
sub - mode 


rename variables global 
with line-restrictions 


variablen-atlas V list 
Q list (jump-table) 


number of lines 
BASIC : size 
number of symbols 
size of symbol table 
The different routines are called with : 
CALLM2000: ..... : 


followed by normal BASIC-commands. 


If a BASIC-command after CALLM2000 is nat recognised by 
SPU, action is transferred to normal BASIC-execution. 


SPU ~ commands : 


LET OLD = rename variable 

LET OLD = NEW : OUT 100,500 rename only in lines 
100-500 

RESTORE CLEAR SYMBOL -TABLE 


LIST ü-list of total program 
LIST 100 Q-list of line 100 
LIST 100-500 Q-list from 100-500 


MODE O variablen-atlas 
MODE 1! variablen-atlas with 
line-numbers 


WAIT start,end,new renumber in STEP-mode 
WAITMEM start,end, add renumber in ADD-mode 
DOT start,end, sub í renumber in SUB-mode 


CHECK programm-check-list 
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REM RIIT ET 
REM t SYSTEM — PROGRAM — UNIT t 
REM £ D 
REM % DEMO t 
REM Ett REELLE 
MODE &A:COLORG О 5 10 15 

-RND (5. 0) 

ON W GOSUB 100,101,102,103 

PRINT A,B,C," SUM : "Ағыс 

DRAW 50,0 50,4 21 

DRAW 100,0 100,B 22 

DRAW 150,0 150,C 23 

IF A>200 OR B>200 OR C>200 THEN 500 
WAIT TIME 20:60T0 20 

A=A+0. 5: RETURN 

B=B+0. 5: RETURN 

=C+0. 5: RETURN 

D=D+0. 5: RETURN 

FILL 0,0 XMAX,YMAX 20:A=0.0:B=0.0:C=0.0:GOTO 20 


—M—————————— 


2 СА 1 М2000: WAIT 10,500, 10 


190 


4 XCALLM2000: CHECK 


Datum 


Lines 
BASIC 


Table 


Symbols : 6 


REM жажду ааа арраи а 
REM * SYSTEM — PROGRAM — UNIT x 
REM t 1 
REM % DEMO $ 
REM fXt$tifUidXdgziiiuririgzgpiiggfgrgii 
MODE &A:COLORG О 5 10 15 

W-RND (5.0) 

ON W GOSUB 150,160,170,180 

PRINT А,В,С," SUM : ";A+B+C 

DRAW 50,0 50,4 21 

DRAW 100,0 100,B 22 

DRAW 150,0 150,C 23 

IF A>200 OR В>200 DR C>200 THEN 190 
WAIT TIME 20:60T0 70 
A=A+0. 5: RETURN 

В=В+0. 5: RETURN 

C=C+0. 5: RETURN 

D=D+0. 5: RETURN 

FILL 0,0 XMAX, YMAX 20:A=0.0:B=0.0:C=0.0:GO0TO 70 






Hun 
e LASS, |]. М 






=LWUSISÁS 


1 - the original dumay program 


: Programm : 


2 - renumber іп step воде 


$ - CHECK : programm information 


502 Bytes 


43 Bytes 





19 қанынан Ue IS USE qoe 
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4 CALLM2000: WAITMEM 150, 190, 1000 | 


10 
20 
30 
40 
50 
50 
70 
8o 
90 
100 
110 
120 
130 _ 
140 
1150 
1160 
1170 
1180 
1190 


КЕМ #541 ЖЖ EEE KAA Ж ЕХ Ss AAA. 


REM ж SYSTEM - PROGRAM - UNIT # 
REM x + 
REM x DEMO + 
REM ЖЖ ЖЖ KKK EXE EE KKK 
MODE &A:COLORG О 5 10 15 

-RND (5. 0) 

ON W GOSUB 1150,1140,1170, 1180 

PRINT A,B,C," SUM : "ZA+B4C 

DRAW 50,0 50,4 21 

DRAW 100,0 100,B 22 

DRAW 150,0 150,C 23 

IF А>200 OR В>200 DR С>200 THEN 1190 
WAIT TIME 20:GOTO 70 

=A+0. 5: RETURN 
В=В+0. 5: RETURN 
C=C+0. 5: RETURN 
D=D+0. 5: RETURN 
FILL 0,0 XMAX,YMAX 20:A=0.0:B=6.0:C=0.0:60T0 70 


————M——Ó 


5 KCALLM2000: MODE o 


: Programm : 


4 — renumber in ADD-mode 
S - V-list variables-atlas 
6 — Q-LIST cross-reference 
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7 XCALLM2000:L IST 


Datum 


70: 
1150: 
1160: 
1170: 
1180: 
1190: 


8 XCALLM2000:L 1571190 


Datum 


1190: 


: Pragramm : Ss AA, 
140,1190, 

80, 

80, 

80, 

80, 

130, 


— S A .. u u U. uU €t U L u 


7 — JUMP-TABLE of entire programm 
8 - where is а jump/call to 1190? 
9 - rename "Nr to 'RANDOMVALUE* 
10 — rename ’C” to * THIRDBAR’ 


: Pragramm : 


150, 


9 XCALLM2000:LET М = RANDOMVALUE 


xt IST 
10 
29 
30 
40 
50 
40 
70 
80 
90 
100 
110 
120 
130 
140 
1150 
1160 
1170 
1180 
1190 


REM *Xftbbnnàgriínbb GO non gg gn doen 
REM £ SYSTEM - PROGRAM - UNIT t 
REM 4 1 
REM t DEMO t 
REM #44155 5534111331148 
MODE SA:COLORG О 5 10 15 
RANDOMVALUE-RND (5. 0) 
ON RANDOMVALUE GOSUB 1150,1160,1170,1180 
PRINT А,В,С," SUM : ":A+B4C 
DRAW 50,0 50,А 21 
DRAW 100,0 100,B 22 
DRAW 150,0 150,C 23 
IF 42200 OR B>200 OR C>200 THEN 1190 
WAIT TIME 20:G0TO 70 
=A+0. 5: RETURN 
B=B+0. 5: RETURN 
=C+0. 5: RETURN 
D=D+0. 5: RETURN 
FILL 0,0 XMAX,YMAX 20:A=0.0:B=0.0:C=0.0:G0TO 70 


KCALEM2000: LET C=THIRDBAR 


10 XLIST 


10 
20 
30 
40 
So 
60 
70 
80 
70 
100 
110 
120 
150 
140 
1150 
1150 
1170 
1180 
1190 


REM ЖЖ ЖЖ ЖЖ ЖЕ ХІ EK EKE EEEN 

REM Ж SYSTEM - PROGRAM — UNIT t 

REM £ x 

REM x DEMO 1 

REM ЖЖ ЖУК KAKKEN KKK AEK ELKEN 

MODE 6A:COLURG О 5 10 15 

RANDOMVALUE=RND (5. 0) 

ОМ RANDOMVALUE GOSUB 1150,11560,1170,1180 

PRINT A,B,THIRDBAR," SUM : "sA+B+THERDHAR 

DRAW 50,0 50,А 21 

DRAW 100,0 100,B 22 

DRAW 150,0 150,THIRDBAR 23 

IF А>200 OR В>200 OR THIRDBAR 200 THEN 1190 

WAIT TIME 20:50Т0 70 

A=A+0. 5: RETURN 

B-B*0. 5: RETURN 

THIRDBAR=THIRDBAR+O. 5: RETURN 

D=D+0. 5: RETURN 

FILL 0,0 XMAX, УМАХ 20:A=0.0:B=0. 0: THIRDBAR=0.0:G0TD 70 
ксл ы REM sia DAInamic 13 — 315 


A4 aCALLM2000: MODE 1 Lu 
S.p.u. 


Datum : Programm : 

p о ee л ышт А шы LEER E 
90,100,1:50,1150,11%0, 

Be озне Speen one eS Ia ЛЕККЕ Eum. 
90,110,130, 1160, 1190, 

E? 

D! а 
1180, 

RANDOMVARUE: !______________________________________________ 
70,80, 

eh KEEN 
90, 120,130, 1170, 1190, 

WUC aana NEE 

LE ENE e 

ў 


Datum : Programm : 

ео T priu UE it U O een ЖОЛЫ 
90,100,130,1150,1190, 

I eR ЕТЕКТЕ se RC EE SEES 
90,110,130,1160,11970, 

| OO onteren ed TS enter 
1180, 

RANDOMVALIJE Ee nen лесе ee Moser ee 
70,80, 

THIRDBAR ! 


90, 120, 130, 1170, 1190, 


D 
45 XCALLM2000: WAIT10, 1190, 2000 


RENUMBER RANGE  : 10-1190 


t 
1LIST 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2150 
2140 
2150 
2160 
2170 
2180. 


symbol table 

“С”? & *THIRDBAR’ are in the 
REM ЖЖЖИ КААК symbol table 
REM * SYSTEM - PROGRAM — UNIT 1 12 — RESTORE : only actual symbols are 
REM $ x preserved in the symbol table 


REM 3 DEMO +£ 13 — again RENUMBER in step-mode 
REM ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ ЕЖЕ Sec ке енен сене 


MODE &A:COLORG 0 5 10 15 
RANDOMVALUE=RND (5. 0) 

ON RANDOMVALUE GÜSUB 2140,2150,2160,2170 
PRINT А, В, THIRDBAR," SUM : "3A+B+THIRDBAR 
DRAW 50,0 50,A 21 

DRAW 100,0 100,B 22 

DRAW 150,0 150,THIRDBAR 23 

IF A>200 OR В>200 OR THIRDBAR>200 THEN 2180 
WAIT TIME 20:60Т0 2050 

A=A+0. 5: RETURN 

B=B+0. 5: RETURN 

THIRDBAR=THIRDBAR+0. 5: RETURN 

D=D+0. 5: RETURN 

FILL 0,0 XMAX,YMAX 20:A=0. 0: В=0. 0: THIRDBAR=0.0:GOTO 2050 
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қана ak 


ac ES D Ec Cd IU DE ВОВЕ СЕ ыды 


CATALOG 


DAI-PANIC z ñ super arcade game іп machine language by Marco van 
Meegen. 
Dig holes, kill monsters, run around... action 
and fun for hours. 


price 


audio : 800 Bfr 
DCR : 950 Bfr 


TOOLKIT 4 : — SYSTEM-PROGRAM-UNIT : the ultimate tool for 
serious programmers. 
- EPSON screen copies in 5 grey-scales. 
(see cover of Newsletter 12). 
- EPSON screen copies in 9 grey-scales. 
(see TV-test pattern in this issue) 
— ARRAY to EDIT & EDIT to ARRAY 


audio : 1000 Hfr 
DCR : 1150 Bfr 


price 


Microcomputers in het onderwijs : BOOK (Dutch) + programs оп tape 


price : BOOK + audio : 990 Bfr 
BOOK + DCR  :1100 Bfr 


SPL : а new MACRD-ASSEMBLER with many extra features. 
(a SPHYNX-production? 


DCE-INTERFACE-CARD 
: A low-cost solution to have many peripherals connected 

together to the DCE-bus. 
Each card is addressable,following the DCE-concept, 
double-sided,metallised and has a prototyping 
area. 
A universal motherboard from ELEKTUUR will be used 
to connect all cards. (EPS 80024) 
The price of a card,including components will be 
around 2500 Bfr. 
Please contact us if you have interest, ordering the 
components in larger quantities could bring the 
price down ! 


OLD SOFTWARE : 


VIDITEL : H.DE VRIES has sold the copyrights of his VIDITEL 
program to INDATA. 
This program will be no longer available from 
DAInamic. 
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program identification 


title 2 HISTOIRES ALEATOIRES 


author J. MOENS 
purpose generates random messages 
comment 





REM 


REM HISTOIRES ALEATOIRES. 
REM --------------------- 
REM MOENS JACQUES — 09/81 
REM --------------------- 


CLEAR 2000:DIM 4$(20.0),B$ (20.0) ,£$(20.0),D$ (20.0) ,E$ (20.0) ,F$ (20.0) ,6$(20 


C-RND(14.99):IF С<10.0 THEN 20 

COLORT C 00 0 

PRINT CHR$(12):FOR I=1.0 TO 5.0 

CURSOR 20,15:PRINT "H I S T D I R E S":CURSOR 20,13:PRINT “--------------- 


—-":МАТТ TIME 40 


34 


CURSOR 20,15:PRINT " "CURSOR 20,13:PRINT " 


"SsWAIT TIME 50:МЕХТ 


40 
42 
44 
50 
65 
52 
54 


FOR 1=1.0 ТО 10.0 

READ АФ (1) „ВФ (1), СФ (1) ,0%(1),ЕФ(1),РФ(1) 6% (1) 

МЕХТ І 

PRINT :INPUT "VOULEZ-VOUS INTRODUIRE DES DONNEES (O/N) ";R$:IF R$="0" THEN 


IF R$-"N" THEN 150 

БОТО 50 

PRINT CHR$(12):PRINT :INPUT "NOMBRE DE JOUEURS (2 A 10)":NJ 
IF №<2 OR NJ>10 THEN 50 

FOR 1=11.0 TO 10.0+NJ 

PRINT CHR$(12):PRINT :INPUT "UN PRENDM MASCULIN ";A$(I) 
PRINT CHR$(12):PRINT : INPUT "UN PRENOM FEMININ ";B$(l) 
PRINT CHR$(12):PRINT :INPUT "L'HEURE OU LE MOMENT ";C$(1) 
PRINT CHR$(12):PRINT :INPUT "EN QUEL LIEU ";D$(I) 

PRINT CHR$(12):PRINT :INPUT "QUE DIT LE MONSIEUR ";E$(I) 
PRINT CHR$(12):PRINT : INPUT "DUE REPOND LA DAME ";F$(I) 
PRINT CHR$(12):PRINT : INPUT "NOTRE CONCLUSION EST ";B$(I) 
NEXT 

L$-" RENCONTRE ":M$-" IL LUI DIT +: ":N$-" ELLE REPOND : ":P$-" CONCLUSION 


PRINT CHR$(12):PRINT :INPUT "SI VOUS VOULEZ UNE HISTOIRE , APPUYEZ SUR "RE 
"$YS: PRINT CHR$(12) 

PRINT CHR$(12) 

C=RND (14.99): IF С<10.0 THEN 172 

COLORT C O O O 

GOSUB 590: A$=AS(1):GOSUB 590: В%=В% (1) :6050В 390:C$=CH(I):GOSUB 390:D$-D$(I) 
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B 


| 


220 GOSUB 390:E$=E$(1):GOSUB 390:F$-F$(I):GÜSUB 590:6$=6$ (1) e 
260 PRINT :PRINT :PRINT " ";:PRINT A$;:PRINT L$;:PRINT B$;:PRINT " ";:PRINT C$ 

БІРКІМТ " "::PRINT D$ 

262 PRINT :PRINT M$;:PRINT ES 

264 PRINT :PRINT N$;:PRINT F$ 

266 PRINT :PRINT P$;:PRINT G$ 

270 PRINT :PRINT :INPUT " POUR CONTINUER APPUYEZ SUR "RETURN? "; Y$:GOTO 170 

390 ` I-INT(RND(10. 0+NJ) +1 . 0) : RETURN 

1000 DATA "LUC", "CHANTAL", "A LA PISCINE", "A MIDI","IL FAIT FROID AUJOURD” HUI", " 

JE VOUS CROIS","EN AVRIL NE TE DECDUVRE PAS D'UN FIL" 


1010 DATA "ERIC", "CORINE", "AU BAL", "A MINUIT","JE VOUDRAIS DANSER AVEC VOUS", "A 
H! BON!", "VIVE LES VACANCES '" 


1020 DATA "JACQUES", "RAPHAELLE", "AU MARCHE", "LE MATIN","JE CHERHE DES PETITS PO 
IS","ALLEZ VOIR AU SUPERMARCHE" 

1022 DATA "ON A TOUJOURS BESOIN DE PETITS POIS CHEZ 501" 

1050 DATA “CHRISTOPHE", "BRIGITTE", "DANS LE PETIT BOIS", "LAPRES MIDI", "JAIME L 
A NATURE", "МОТ, ОЕ VOUDRAIS JOUER" 

1052 DATA "RIEN NE SERT DE COURIR ..." | 

1040 DATA "CEDRIC", "SARAH", "DANS LA RUE", "A 10 HEURES", "]?АТ MAL AUX PIEDS", "AL 
LEZ DONC VOIR LE MEDECIN !", "АН ' LES FEMMES !" 

1050 DATA "GUY", "CHRISTIANE", "AU CARNAVAL", "А 3 HEURES","J'AIME LA FETE", "MOI,J 
E VOUDRAIS ALLER AU CIRQUE", "VIVE LE CIRQUE" 

1060 DATA "MICHEL", "ISABELLE", "AU CIRQUE", "LE SOIR","JE VOUS AIME A LA FüLIE"," 
MOI,JE DOIS ALLER ETUDIER", "VIVE LA NATURE" 

1070 DATA "JEAN", "ANNE", "AU CINEMA", "L'APRES-MIDI","IL FAIT CHAUD ІСІ", "VOUS ЕТ 
ES UN SOT !","VIVEMENT LES VACANCES !" 

1080 DATA "ALBERT", "LILIANE","A LA POSTE", "А 5 HEURES DU SOIR", "JE NE SAIS PLUS 
QUEL JOUR NOUS SOMMES","EH BIEN ' VOUS ALORS '" 

1082 DATA "BUAND ON EST BETE,C'EST POUR TOUTE SA VIE" 


1090 DATA "PIERRE", "SABINE", "A L'ECOLE", "A 8 HEURES", "JAI EU UN ACCIDENT HIER" 
"ЧЕ NE VOUS CROIS PAS !" 


1092 DATA "SOYONS TOUJOURS PRUDENTS" 


i 





| 
| GRAPHICS M. DIERCKX 





dE Ak 


3 MODE 6 

10 COLORG O O O O 

20 FOR 0-1 TO XMAX STEP 3:DRAW 0,0 Q,YMAX 17+2%A:COLORG О 15-1514 154A 15:DRA 
W 0,0 0-1,ҮМАХ 18-2%A:A=1-A: NEXT 

30 FOR В=ХМАХ TO 1 STEP —3:DRAW ХМАХ, О Q, УМАХ 17+24A:COLORG 0 15-1554 15%А 15 
:DRAW ХМАХ, О 0-1,ҮМАХ 18-2%A:A=1-A: NEXT 

40 FOR D=1 TO XMAX STEP 3:DRAW О, YMAX 8,0 17+2%4:COLORG O 15-15%A 154A 15:DRA 
W 0, УМАХ 0-1,0 18-2%4:А-1-А:МЕХТ 

50 FOR G-XMAX ТО 1 STEP —3:DRAW XMAX, УМАХ 0,0 17+24%A:COLORG О 15-15%А 15%А 15 
:DRAW ХМАХ, УМАХ 0-1,0 18-2%А:А=1-А:МЕХТ 

70 FOR 1-0 TD 15 

80 FOR K-O TO 15 

90 FOR J-O TO 15 

100 FOR I-O TO 15 

110 WAIT TIME S:COLORG I J K L 

150 NEXT: NEXT:NEXT:NEXT:GOTO 70 


MI RENTEN NS ae e ER hed: nn ER Te AE ү. 


eden EEE Se 
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002 
005 
004 
005 
006 
007 
008 
009 
010 
011 
012 
015 
014 
015 
016 
017 
018 
019 
O20 
021 
022 
023 
024 
025 
026 
027 
028 
029 
050 
931 
052 
O33 
954 
055 
055 
037 
058 
059 
040 
041 
042 
043 
044 
045 
046 
047 
048 
049 
050 
051 
052 
053 


054 


0300 
0501 
0202 
0505 

304 
0306 
0207 
0508 
озон 
озор 
ОЗОЕ 
0311 
0512 
0314 
0518 
0217 
0518 
O31B 
0310 
0510 
0520 
0323 
0526 
0328 
0329 
03280 
O32H 
OZ2C 
озар 
0550 


0555 
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MODE 8 \0.1 


FS 

cS 

DS 

ES 
ZEQA 
EF 

18 
ZiEFBF 
IEF 4 
1684 
3650 
26 
3640 
zE 
3600 
15 
C21403 
2B 

1D 
C20DO3 
215905 
118400 
0615 
7Е 

12 

15 

ов 
C22803 
212740 


220502 


3e OM эє З 3€ OH 3€ 3 HE 3€ EE HE 3X 


D 
DABYT 
LCBYT 
CCBYT 
MODES 
LINES 
SCRTOF 


LOOF'O 


LOOF 1 


CTRL 


LOOPS 


BUGIS ХХ ЖЖ ЖЖ E) 
A FROGRAM BY М.Р. LOOIJE 
PALUDANUSHOF 22 
3151 CM HOEK VAN HOLLAND 
SOOO OOOO OO KK 
24445124528) RESOLUTIE 
4 KLEUREN ALS MODE 6,4,2 
XMAX, YMAX, DOT, DRAW, FILL, SCRN( ) 

OFF SCREEN,COLOR NOT AVAILABLE 
EN ANIMATIE WORDEN GEINITIALISEERD 
HET SCHERM NEEM 32728 BYTES IN 
MODE ЗА BESTAAT NIET DUS AAN НЕТ 
EIND VAN HET FROGRAMMA BIJV. 
6535523 IF БЕТС=0 THEN 65355:MO0DE 0 
ЖЖЖЖЖ ЖЖ ЖЖ ЖЖ ЖЖ AGRO ARK AK 
ECU o data 
EU :30 li jncontrolebyte 
EQU :40 kleurcontrolebyte 
EQU А 
EQU SEA 244 lijnen 
EGU : BFEF top scherm na header 
DRG : 300 
PUSH FSW 
PUSH | 
FUSH 
FUSH 
MVI 
RST 
DATA 
LXI 
MVI 
MVI 
MVI 
DCX 
MVI 
DCX 
MVI 
DCR 
JNZ 
DCX 
DCR 
JNZ 
LXI 
LXI 
MVI 
MOV 
STAX 
INX 
INX 
DCR 
JNZ 
LXI 
SHLD 


к= М 
= 
G 
= 
m 
o 


r = [- tn £D 
OO 
Б 


initialiseer mode & 
CRTOF 
NES 


ч 


vul controlebytes 


BYT 


^ 


vul databytes 


ut 

u op 
£ в 
ш m 
= < 
= d 


OOF 1 


D 


a 
с 


ВЕТВЬ init. current state screen 


Ki KI A 
- 0 
Cn P 


Ee < СТГ) 


verplaats 21 bytes 


DOF3 


"шгшшооршсошгтшголілілзотіелрьІОвНВ 


305 SCRBEOT 


7“. 


PAGE 02 MODE 8 VO. 1 


055 0556 0610 MVI В,:10 

056 0358 21FOBF LXI — H,:BFFO 

097 OSSB 112840 LXI — D,:4028 

098 OSSE 7E LOOP4 МОУ A,M kopieer header in trailer 
059 OSSF 12 STAX D 

060 0340 13 INX D 

061 0341 23 INX H 

062 0342 05 DCR E 

063 0343 C23E03 JNZ LOOF4 

064 0346 SESF MVI А, :3F maak trailer af 
045 0548 522840 STA  :402B 

066 ОЗАВ 522540 STA =: 402F 

067 054Е 323340 STA :4055 

068 0551 523740 STA  :4037 

069 0354 El РАР H 

070 0555 Di POF D 

071 0356 Ci `, РОР B 

072 0357 F1 FOF FSW 

073 0358 C9 RET 

074 0559 2740 MDETEL DATA :27,:40 ЯҒЕВ 
075 OSSB 77В0 DATA :77,:B0 ЖБЕК 
076 0550 3740 DATA :57,:40 — X*GRE 
077 O3SF 2740 DATA :27,:40 CHE 
078 0561 3740 DATA :37,:40 ЖбАЕ 
079 0363 2740 DATA :27,:40 XSCE 
ОНО 0365 7756 DATA :77,:56 XGTE 
081 0367 EFS6 DATA "EE, Dé XGTS 
082 0569 0002 DATA :00,:02 ЯБКС 
083 0568 ҒА DATA "EA XGRL 
084 056С 2С DATA :2С GAL 
085 0360 86 DATA :86 XGXB 
085 O36E END 


XXYYYF1T1XXX1X1XKXXX1X1XKXX1XX1XXXX 
*SYMBDL TABLE X 
KRONE ХХХ ХХ 


CCBYT 0040 CTRL 0520 DABYT 0000 LCBYT 0030 
LINES OOF4 LOOPO 0500 LOOP1 0514 LOOPS 0328 
LDOP4 ОЗЗЕ MDETBL 0359 MODES О008 SCRTOF ВЕЕР 





0500 FS C5 05 ES ЗЕ OA EF 18 21 EF BF 1E F4 16 84 36 
0310 50 2B 56 40 2H 26 00 15 C2 14 OF 28 1D C2 OD 03 
0320 21 59 O3 11 84 00 06 15 7E 12 13 23 05 C2 28 O3 
0330 21 27 40 22 А8 02 06 10 21 FO BF 11 28 40 7E 12 
0540 13 23 05 C2 ЗЕ 05 ЗЕ AE 32 2B 40 32 2F.40 32 33 
0550 40 32 37 40 El D1 C1 F1 C9 27 40 77 BO 37 40 27 
0360 40 37 40 27 40 77 56 EF 56 00 02 F4 2C 86 






OBJECT CODE MODE 8 


ороо FS CS DS ES ЗЕ ОА EF 18 21 EF BF 1E F4 16 84 56 
0010 50 2B 56 40 EB 36 00 15 C2 14 OD 2B 1D C2 OD OD 
0020 21 59 OD 11 84 00 06 15 7E 12 15 23 08 C2 28 OD 
0050 21 27 40 22 AS 02 06 10 21 FO BF 11 28 40 7E 12 
0040 15 23 05 C2 ЗЕ OD ЗЕ ЗЕ 32 2B 40 32 2F 40 32 55 
0050 40 32 37 40 El рі Ci Fi C9 27 40 77 BO 37 40 27 
OD&O 40 57 40 27 40 77 56 EF 56 00 02 F4 2С 86 


POBJECT CODE MODE G, RELOCATED ABOVE FOT 


DAInamic 13 — 521 








FAGE 01 


DOT 
QUO 
004 
DOS 
OOS 
0097 
008 
009 
010 
011 
012 
012 
014 
015 
018 
017 
018 
019 
o20 
021 


022 


ar aL all 


DES 


024 
0295 
026 
027 
028 
029 
950 
Oii 
O32 
O23 
ox 

055 
036 
O37 
O38 
039 
040 
041 
042 
045 
044 
045 
045 
047 
048 
049 
050 
051 
OSZ 
OS 
054 


0500 
0501 
oio2 


0505 


0304 3 


0206 
507 


0508 2 


ОЗОН 
озор 
ОЗОЕ 
ОЗОЕ 
0310 
0311 
0312 
0313 
0214 
0516 
0317 

519 
OIC 
ОЕ 
05320 
0522 


0325 
0325 
0526 
0597 
0528 
0329 
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MODE 


85 
OEFF 
21EFBF 
1ЕЕ4 
1242 
REI 
2B 
3640 
2H 
71 
=H 
77 


15 


VO, 0 


DE 3€ 3€ 3€ 3€ Эб ae Sp 9 3 м Эб Ae ж 


эе 


DEYTFL 
DABYT 
LCBYT 
CCHYT 
MODES 
LINES 
SCRTOP 


LOOFO 


LOOF 4 


ЖЖЖЖЖ ЖЖ ЖЖ ЖЖ КЫДЫ. 

A FROGRAM ВУ М.Р. LOOIJE 

PALUDANUSHOF 22 

3151 CM HOEK VAN HOLLAND 

OK 

2444512(528) RESOLUTIE 

16 ELEUREN ALS MODE 5,3 EN 1 

XMAX, YMAX, DOT, DRAW, FILL, SCRN( ) 
OFF SCREEN,COLOR NOT AVAILABLE 

WORDEN GEIMITIALISEERD 

HET SCHERM NEEMT 22728 BYTES IN 

MODE 7А BESTAAT NIET DUS AAN НЕТ 

EINDE VAN HET PROGRAMMA BIJV. 

65255 IF BETC-O THEN 65555: МОРЕ 0 

OO 


EDU :42 databytes per lijn 
EQU : РЕ data 

EQU : BO ii jancontrolebyte 
EQU :40 kleurcontrolebyte 
EGU :8 

EQU SEA 244 lijnen 

EQU : ВРЕР top scherm na header 
ORG 2300 

FUSH PSW 

FUSH В 

PUSH D 

FUSH H 

MVI ñ, MODES 

RST 5 

DATA :18 initialiseer mode 5 
LHLD :9Е CDLORGregisters Ó en 1 
MVI А, :Е 

ANA L 

ADD А 

ADD A 

ADD A 

ADD A 

MOV L. 

MOV ` GH 

ANI iF 

ADD L А bevat kleurbyte 


MVI C,DABYT 
LXI H, SCRTOF 
MVI E,LINES 
MVI D,DBYTPL vul controlebytes 
MVI H.LCBYT 


DCX H 

MVI М, ССВУТ 

DCX H vul data & kleurbytes 
MOV M,C 

DEX H 

MOV MYA 

DER D 





---ф-- — -- 


7 ——% 





¿tas i a= sas 





РАБЕ 02 


055 
056 
057 
058 
059 
060 
061 
042 
063 
0654 
0465 
046 
067 
048 
049 
070 
071 
072 
075 
074 
075 
076 
077 
078 
079 
080 
081 
082 
085 
084 
085 
086 
087 
088 
089 
090 
091 
092 
095 
094 
095 
098 
097 
098 
099 
100 
101 


032A 
0352р 
ОЗ2Е 
O32F 
0332 
0335 
0558 
O33A 
055В 
O33C 
0550 
OS3E 
O33F 
0342 
0545 
0548 
0346 
034D 
0550 
0351 
0552 
0555 
0354 
0555 
0558 
O35A 
0550 
0360 
0363 
0566 
0357 
0568 
0369 
0364 
0568 
озар 
Q36F 
0371 
0575 

378 
0577 
0579 
057В 
0570 
O37E 
ОЗУЕ 
0580 


MODE 7 У0.0 


C22503 
2B 

1D 
С21Е05 
216803 
118400 
0615 
7Е 

12 

13 

05 
С25А05 
212740 
226502 
0610 
21FOBF 
112840 
7E 

12 

13 

23 

05 
C25003 
ЗЕВЕ 
322840 
522-40 
525540 
525740 
Ei 

рі 

Ci 

Fi 

co 
2740 
77В0 
3740 
2740 
3740 
2740 
7756 
ЕЕ Gë 
0002 
F4 

26 

86 


CTRL 


LOOP E 


LODF4 


MDETBL 


ROOK EK 


XS YMBOL 
ЖЖЖЖЖЖЖЖ ЖЖ ЖЖ IDK 


ССВУТ 0040 CTRL 

LCBYT OBRO LINES 
1002$ 023 LOOF4 
SCRTOF ВЕЕР 


TABLE *# 


"yu 
EAT 


OOF 4 


0350 


JNZ LOOF1 

DCX H 

DER E 

JNZ LOOPO 

LXI H.MDETBL init. current state screen 
LXI D,:84 

MVI B,:15 

MOV A.M verplaats 21 bytes 
STAX D 

INX D 

INX H 

DER В 

JNZ ООРЗ 

LXI H, : 4027 

SHLD :285 SCRBOT 
MVI В,:10 

LXI H, : BFFO 

LXI D,:4028 

MOV AM kopieer header in trailer 
STAX D 

INX D 

INX H 

DER В 

JNZ LOOF4 

MVI A, Е: ВЕ maak de trailer af 
ЭТА :402B 

STA r 402F 

STA: 14035 

STA : 4037 

POF H 

FOP D 

РОР В 

РОР FSW 

RET 

DATA :27,:40 — XFFB 

DATA  :77,:BO ЖБЕК 

DATA :37,:40 ЖВБКЕ 

DATA :27,:40 ЖСН5 

DATA :57,:40 KGAE 

DATA :27,:40 XSCE 

DATA :77,:56 ЖБТЕ 

DATA "EE, Dé XGTS 

DATA :00,:02 — XGRC 

DATA :Ғ4 XGRL 

DATA 12C xGAL 

DATA :86 LES 

END 

DABYT  OOFF DBYTFL 0042 
LODFO OZIE  LOO0F1 0525 
MDETBL 0568 MODES 0008 


DAInamic 13 - 


325 





continued from page 378 










In Equation 5, ROS is the One-Shot Control Resistor (Pin 
24) and Cos is the One-Shot Control Capacitor (Pin 23). 
Maximum duration of the One-Shot is approximately 10.0 
seconds. When the One-Shot is controlled by external logic, 
the One-Shot Control Resistor and Capacitor may be 
eliminated. Simply begin One-Shot with Pin 9 (system 
enable) and end cycle by taking Pin 23 (One-Shot Capacitor) 
high. 





















Е 
GENERATOR 







ENVELOPE SELECT LOGIC 


The Envelope Select Logic determines the envelope that is 
applied to the mixer output according to the following table 


Envelope Envelope Selected 

Select 1 Select 2 Function 
БЕНЕН EC j 
ROSEN | Mixer Only | 
t 


VCO with Alternating 
Polarity 
















Table 4: Envelope Select Logic Output 





9. ATTACK AND DECAY CONTROL 


The Attack/Decay circuitry alters the rise and fall of the 
envelope. An example of a noise waveform utilizing the 
envelope generator under one-shot control is: 







Operational Amplifier Internal Input Circuitry 







The resistor value RAMP sets the operating currents for the 
operational amplifier's internal circuitry and is the main 
Mixer adjustment to control the amplifier's output amplitude. The 
Output value of this resistor is normally between 47K and 220K 


ohms. Any lower resistance will typically begin to saturate 
One Shot 
Envelope 


the operational amplifier and is especially noticeable on the 
Figure 4: One-Shot Controlled Noise Waveform 









decay portion of the sound envelope. 





The feedback resistor, RE, is used to compensate for external 
variations and also any chip-to-chip variations. This is 
accomplished by connecting the feedback resistor between 
the last amplifier stage and the input Pin 12, as shown below. 
The feedback resistor is connected to the last stage at a point 
where the signal is in-phase with the operational amplifier's 
output. The peak output voltage is determined by the 
DECAY following equation: 


f 
ATTACK р ІНІ 
7ч і VOUT ^ 3.4R 


RAMP 






By utilizing the Attack and Decay Control Inputs (Pin 7,10), 
the waveform may be affected in the following manner: 







@ VREG = 5.0V 






Where VOUT = volts 
R = ohms 





The dynamic output range is limited to 2.5 volts peak-to- 
peak before clipping occurs. The example shown is ideally 
suited for most applications. The amplifier is in а push-pull 
configuration and will draw current only when a signal is 
present. Depending on the voltage applied to the collector of 
Q1, this circuit will provide approximately 300-400mW of 
power into an 8-ohm speaker. 


аа Ç й QOO 
I ' | 







Figure 5: Examples of Varying Degrees of Attack and Decay оп a Waveform 





The amount of Attack and Decay is determined by the 
Attack Control Resistor (RA) (Pin 10) and the Decay 
Control Resistor (RD) (Pin 7) and the Attack Decay Timing 
Capacitor (CA-D) (Pin 18) According to the following equa- 
tions: > 









Attack Time (seconds) % ВА CA—D 
Decay Time (seconds) 2 RA CA—D 
@ VREG = 5.0V 







OUTPUT AMPLIFIER 





The output amplifier is a gain section designed to interface 
with external sound modulators or additional amplifier 
stages. The output is an operational amplifier operating as a 
summer and invertor, as illustrated. The output is an 






emitter-follower without a load resistor. Therefore, pin 13 
should have a pull-down resistor, RE, with a value ranging 
from 2.7K to 10K ohms. The equivalent of the input 
Circuitry for the amplifier section is shown in the next 
column. 
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If the amplitude of the sound output is to be varied for 
particular sounds, the resistance RAMP can be varied by logic 
control lines. This can be done (as described earlier) by 
using the logic control line to switch a logic gate that will put 
а resistor in parallel with RAMP. 


SNG PAGE XI 

















Special filtering can be added to the output of the amplifier 
or can be included in the feedback section of the operational 
amplifier, Since the output of the amplifier always contains 
square waves, filtering will change the timbre (harmonic 
content) of the output signal. 


Other external sounds may be added to the input of the 
amplifier at Pin 12. This input can be made either directly or 
through a series resistor. An example of an input con- 
figuration to add a person's voice to the system is shown 
below. This could be used tó sing along or talk along with the 
sounds being generated by the chip. 


TO PIN 
12 


7 2762014 





REGULATOR 


Either a 5-volt regulated supply may be applied to Pin 15 
(VREG) or a 7.5-volt min/9.0 volt max regulated supply may 
be applied to Pin 14 (VCC). Pin 15 (VREG) can be used as a 
5-volt regulated supply for the rest of the system with a 
current supply of up to 10MA out of the IC. 


NOTE: 

Control resistors and capacitors may be eliminated if the 
desired sound does not require that generator or logic 
section. For dedicated sound, the logic inputs (Pins 1,9, 22, 
25, 26, 27, 28) may be hard-wired for high or low logic 
levels. Individual sounds (single or multiple) will determine 
which of the other components are required. 








COLOR—CODE FOR RESISTORS 


=... 


1 TOLERANCE 
MULTIPLIER 
SECOND CIPHER 
IRST CIPHER 


TT] kal Fi Lan Lan Lan Pq 4 


а 


І FIRST І SECOND 
І І CIPHER І CIPHER 
-------- I -------- 


I 

I 

I RED 

I ORANGE 
I YELLOW 
I GREEN 
I BLUE 

I VIOLET 
I GREY 

I WHITE 
I GOLD 

I SILVER 


кч bai Fa bad kd Frai Man Man an Fi Fei Fei 
Lan Fi Fei kal kd Fi Fi Fi Fa Fi Fi Fal 


SNG PAGE XII 


PRECISELY 2 
—IIIIII II- 
1--------------- I 

III I 

III TOLERANCE 

IIII 

11 I MULTIPLIER 

I I THIRD CIPHER 

I SECOND CIPHER 

FIRST CIPHER 
I THIRD I MULTIPLIER I TOLERANCE I 
I CIPHER I I I 
1-------- 1------------- 1----------- І 
Io I 1I - I 
I 1 I 10 I 1% I 
I 2 I 100 I 2 1 
I 3 I 1000 I - I 
I 4 I 10,000 I - I 
I 5 I 100,000 I 0.5% I 
I & 1 1,000,000 I - I 
I 7 1 10,000,000 I - I 
I 8 I - I - I 
I 9 I - I - I 
I - I 0.1 I 5X I 
I - I 0.01 I 10X I 
TABLE 4 
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Hoek van Holland 17 November 1982 


Beste DAI vrienden, 


Sinds het laatste nummer van Dainamic heb ik een aantal reacties де- 

had van leden o.a. over de unitcolourmode en tekstmodes. Het blijkt dat 
het handboek toch niet duidelijk en volledig genoeg is. 

Daarom als aanvulling op voorgaand artikel deze brief en een demoprogramma 


Aan de hand van het handboek kunnen we zijn dat de DAI acht resoluties 
kent nl. 


> Unitcolourmade 4 resoluties = 4 bytes 
^ Low resalution 88 blobs per lijn 24 bytes 


Medium resolution 176 blobs per li jn 46 bytes 
* High resolution 352 blobs per lijn 90 hytes 
* Super resolution 528 blobs per lijn =154 bytes 





De eerste onvolledigheid is dat het handboek niets zegt over het aantal 
bytes per lijn. Normaal gesproken is dit het aantal zoals hierboven 
vermeld. Dit is te berekenen door het aantal hytes/karakters met twee 
te vermenigvuldigen en er twee bij op te tellen voor de LINEMODEBYTE 
en de COLOURTYFEBYTE. Over de uitzonderingen verderop meer. 

De uitlezing door de videohardware geschiedt (vereenvoudigd) als volgt; 
Eerst wordt de uitlezing geladen met het hoogste RAM adres en twee 
instructies gelezen (de LINEMODE en COLOURTYPEBYTE). 

Aan de hand hiervan wordt een teller geladen met het aantal nag 

te lezen bytes tot de volgende instructies. Tevens wordt de uitlees 
snelheid, het aantal herhalingen, de kleurmode, en karakter of gra- 
phische mode vastgesteld.Als de teller afgelopen is wordt op het 
volgende RAM adres (Top RAM - lijntengte) worden dan de volgende in- 
structies (LINEMODEBYTE en COLOURTYPEBYTE) gelezen. 

Als je bijvoorbeeld in MODE О (Super resolutie) een lijn in High 
resolution zet door de LINEMODEBYTE te vervangen door #454 zal de 
videchardware maar 90 van de 154 oorspronkelijke bytes in High 
resolution uit lezen voor die li jn. Er blijven er dus 44 over. 

De Piste byte wordt als LINEMODEBYTE, en de 7Z2ste byte als COLOUR- 
ТҮРЕВҮТЕ gelezen. Aangezien de 92ste byte een colourbyte is #00 zet 
de hardware de lijn in unitcolourmode de resolutie hangt af van de 
91ste byte nl. het karakter dat daar stond. 

Dit heeft als gevolg de een repeterend patroon ontstaat van strepen 
of stukken van karakters. Totdat minimaal 11 lijnen (de 44 bytes 
opgedeeld in 11 lijnen unitcolourmode) later de videohardware weer 

de LINEMODEBYTE van de volgende regel tegenkomt. 

Deze patronen zijn dan te wissen door COLORT x y x x, maar het is 
niet weg. Dit is te merken doordat alle regels naar onder geschoven 
zijn. In alle DEMQ’s van grote karakters wordt deze techniek gebruikt 
dit heeft als voordeel dat de screendriver netjes op de volgende regel 
verder gaat. Het nadeel is dat het aantal regels wordt beperkt en 
meestal maar twee kleuren mogeli jk zi jn. 

Om meer regels grote letters te krijgen moet je het scherm opnieuw 

in delen. Hier blijkt de tweede onvolledigheid van het handboek er 
zijn пода! wat uitzonderingen op de hierboven gemaakte rekensommetjes 
voor het aantal bytes per lijn. Пак de unitcolourmode wordt niet uit- 
vaerig behandeld daarom onderstaande opmerkingen en tabel. 


UITZONDERINGEN & BIJZONDERHEDEN 


1. COLOURBYTE 
Er is een belangrijk verschil tussen karakter en graphicmodes 
nl. de plaats van de COLDURBYTE. 
GRAPHICS 2ADRES COLOURBYTE = ADRES ОАТАВУТЕ-1 
KARAKTERS ADRES COLOURBYTE = ADRES DATABYTE-3 
dit houdt in dat het laatste karakter van een regel de kleurin- 
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ke tig 
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formatie haalt uit de COLOURTYPEBYTE van de volgende regel. 


2. LOW en MEDIUM resolutie 
KARAKTERS >LOW res. 12 databytes totaal 24 bytes per lijn 
MEDIUM res. 23 databytes totaal 48 bytes per lijn 
GRAPHICS AL ON res. 11 databytes totaal 24 bytes per lijn 
MEDIUM res. 22 databytes totaal 44 bytes per lijn 
dit is dus afwijkend voor de karakters. 


5. ONZICHTBARE KARAKTERS 
In alle graphicmades en Unitcolourmodes is de gehele lijn zicht- 
baar. In de charactermodes BEHALVE High res. is het op een na 
laatste karakter gedeeltelijk zichtbaar en het laatste karakter 
onzichtbaar. In de High res. is aan het einde het laatste karak- 
ter half zichtbaar, deze haalt zijn kleurinformatie uit de 
COLOURTYPEBYTE van de volgende regel. Dit is bij een totaal 
plaatje zichtbaar als een blokje in kleur 2 van het COLORT 
commando. (Op de meeste TV’s zijn de laatste karakters niet 
zichtbaar.) 


4. 16 KLEUREN KARAKTERS 
Vanaf rev. (5 of 4) computers is deze modificatie standaard in- 
gebouwd. Deze modificatie heeft dezelfde beperking als de 18 
kleuren graphics nl. de videohardware moet in een karakterbyte 
eerst een logische "1" tegen komen om de achtergrondkleur te 
veranderen. bij POKE’s moet men hier rekening mee houden. 

Bi jv. СНАФ (#7Е) ( valle blok jals eerste karakter op de lijn 
en de COLOURBYTE 17 x achtergrondkleur. 
Bijv. FA 40 7E 88 44 хх 41 ух 


^^ ^ z^ 


LCB CTB  DATAi DATA2 COLI DATAZ COL2 
Dit zet de lijn in kleur x en het karakter op kleur y. 


5. UNITCOLOURMODE 
De unitcolourmode kent twee manieren van uitlezing door de 
hardware nl. voor MEDIUM/LOW en HIGH/SUPER resolutie. 
In beide gevallen zijn 4 bytes per li jn nodig nl. LINEMODE- 
en COLOURTYPEBYTE + DATA + COLOURBYTE. 
In LOW/MEDIUM res. is afstand tussen de LINEMODEBYTEs twee 
bytes, in de HIGH/SUPER 15 de afstand 4 bytes. In het eerste 
geval is dus de DATA- & COLOURBYTE van de eerste regel resp. de 
LINEMODE- & COLOURTYPEBYTE van de tweede regel dus altijd een 
vast patroon. In het tweede geval zijn de DATA en de 
COLOURBYTE naar keuze in te vullen. 


Hieronder een overzicht van het effect dat CONTROLEBYTES te weeg 


brengen. 
CONTROLE DISPLAY COLORS RESOLUTIE BYTES TOT DATA & ZICHTBARE 
BYTES NIEUW CON COLOUR FIELDS & 


TROLEBYTE BYTES BLOBS 






















GRAPHICS 4 LOW 24 11 11 - 88 
ix 40 GRAPHICS 4 MEDIUM 46 22 22 -176 
2x 40 GRAPHICS 4 HIGH 90 44 44 -352 
GRAPHICS 4 SUPER 154 66 &6 -328 
CHAR 4 LOW 2 12 10 — 87 
CHAR 4 MEDIUM 48 23 21 -173 
CHAR 4 HIGH 90 44 45 —345 
CHAR 4 SUPER 134 66 64 -517 
GRAPHICS 16 LOW 24 1i il - 88 
BRAPHICS 16 MEDIUM 46 22 22 -176 
GRAPHICS 16 HIGH 90 44 44 —552 
GRAPHICS 16 SUPER 134 66 66 -328 
CHAR 16 LOW 26 12 10 - 87 
CHAR 18 MEDIUM 48 23 21 -173 
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Ex 40 
Fx 40 


KEEEKEKERKEEKKEKEEKKEKKUNIT COLOUR MODE 


Ox 00 
ix OO 
2x 00 
3x 00 
4x 90 
эх 
6х 
7x 
8x 
9х 
Ах 
Вх 
Сх 
Dx 
Ex 
Fx 


CHAR 16 HIGH 90 44 45 
CHAR 16 SUPER 154 66 64 
GRAPHICS LOW 1 11 
GRAPHICS MEDIUM 
GRAPHICS HIGH 
GRAPHICS SUPER 
CHAR LOW 
CHAR MEDIUM 
CHAR HIGH 
CHAR SUPER 
GRAPHICS LOW 
GRAPHICS MEDIUM 
GRAPHICS HIGH 
GRAPHICS SUPER 
CHAR LOW 
UHAR MEDIUM 
CHAR HIGH 
CHAR SUPER 


2 
2 
4 
4 
2 
2 
4 
4 
2 
2 
4 
4 
2 
2 
4 
4 


Be bet bet ма be ра кома bet P+ bet bb Feb = w 





Dit zijn de juiste waarden voor een correct opbouwen van 
het scherm. Bijgaand ook een demonstatieprogramma met alle 
mogeli jkheden. 


240 
250 
500 
510 
320 


met vriendelijke groeten 
М.Р. Looi je 

Paludanushof 22 

3151 CM Hoek van Holland 


REM LINEMODEBYTES EN COLOURTYPEBYTES/N.P.LOOIJE 

MODE @:PRINT CHR$(12):COLORT 5 15 5 5 

CURSOR @,17:PRINT " DAI PERSONAL COMPUTER" 
POKE #BCCB,#5F:POKE #BC9B,#5F:POKE #BC9A, #40 

IF GETC=@ THEN 40 

COLORT 8 9 3 9:PRINT CHR$(12); "BASIC V6.0":POKE #75, #5F 
PRINT "+"; 

IF GETC=@ THEN 70 

P=0:GOSUB 8000 

А%= '' е JEJE 3EIEIE JEJE JE JEJE ERE ЗЕ ЗЕЗЕЗЕЗЕЗЕЗЕЗЕЗЕЗЕЗЕЗЕЗЕЗЕЗЕЗЕЗЕЗЕЗЕЗЕЗЕЗЕЗЕ-ЗЕ " 

BYTE=#BF 4F : S=0: B$=A$+"*#":S$=B$:GOSUB 9000 
BYTE=BYTE-#88: S$=A$:S=1:GOSUB 9000 

ВУТЕ-ВУТЕ-#86:5$="* 24 LINES OF CHARACTERS 
BYTE-BYTE-485:S$-A$:G0SUB 9000 
BYTE=BYTE-#84: S$=B$: 5=0: GOSUB 9000: GL 

AE" е ЖЖЖ 
BYTE=#BCSF : S$=A$: GOSUB 9000 


-345 
-519 


ОТ: 


- 88 
-176 
-352 
-528 
- 88 
-176 
-352 
-528 
— 88 
-176 
-352 
-528 
- 88 
-176 
-352 
-328 


Si: DOUD 9000 


ВУТЕ=ВУТЕ-#5А: 8$-"« IN 4 RESOLUTIONS ж": DOUD 9000 


IF Р-і THEN ВҮТЕ=ВҮТЕ-#5А: 5$="* AND 16 COLOURS 
BYTE=BYTE-#5A: S$=A$:GOSUB 9000 


*":GDSUB 9000 


BYTE=BYTE-#B4+P*#56:S=0:S$=" PRESS SPACE TO CONTINUE":GOSUB 9000:5-і 


BYTE-HBA75: S$z "eeeeeipneeieeeee" :BOSUB. 9000 
BYTE-BYTE-4C0: GOSUB 9000 
BYTE-BYTE-HI70: 5$-" xPRDGRAMMABLE*":GÜGUB 9000 
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330 . BYTE-BYTE-430:8$-"* GRAPHICS *":GOSUB 9000 

540 = BYTE-BYTE-430:S8$-"* GENERATOR *":GOSUB 9060 

400 ВҮТЕсйВ98Ғ:5Ф-" 33x" : GÜGUB. 9000 

410 BYTE=BYTE-#34:GOSUB 9000 

420 BYTE=BYTE+#iA:S$="% *":GOSUB 9909 

430 — BYTE-BYTE-4:8-0:5$-"DAI":60S5UB 9000:9-1 

440 BYTE=BYTE-#54:S$="NPL":GOSUB 9000 

500 IF БЕТС<>9 THEN 550 

510 IF P=@ THEN SS=1-SS:SSS=1-SS:COLORT 5543456648 55%9 55#8+555#5 555#9 
220 WAIT TIME 106:G0T0 500 

550 IF Р=1 THEN 1000 

600 COLORT 15 0 9 @:PRINT CHR$ (12) 

610  P-1:PÜKE #75,32:G0SUB 800@:GOTO 100 

1000 CLEAR 5000:МОПЕ O:PRINT CHR$(12):COLORT © 14 5 15 

1010 DIM DISPLAYMODES (3) , COLOURMODE (1) , RESOLUTIONS (3) , UCM$ (1) 

1920 FOR А-Ә TO 1:READ DISPLAYMODES (А) , COLOURMODE (A) , UCMS (A) : NEXT 

1030 FOR A=@ TO 3:READ RESOLUTIONS (A) : NEXT 

1940 DATA GRAPHICS, 4, UNITCOLOURMODE , CHARACTERS, 16, , LOW, MEDIUM, HIGH, SUPER 
1950 FOR A=#@ TO #1F@ STEP #10:LINEMODEBYTE=(A+#A) IAND #FF:COLOURTYPEBYTE=#40- 
A/#1 004840 

1050 READ BYTESPERL INE, COLOURBYTE, BLOBS, OPMS 

1070 PRINT СНЕФ (12); 

1980 PRINT RESOLUTIONS( (LINEMODEBYTE IAND #30) SHR 4);" RESOLUTION "; 
1090 PRINT COLOURMODE ( (1 ІМЕМОРЕВҮТЕ IAND #80) SHR 7);" COLOUR "; 

1100 PRINT DISPLAYMODE$((LINEMODEBYTE IAND #40) SHR 8)" "3 

1110 PRINT UCM$((COLOURTYPEBYTE IAND #40) SHR 6} 


1120 PRINT "LINEMODEBYTE =#";НЕХ$ (LINEMODEBYTE) 

1130 PRINT "COLOURTYPEBYTE =#" 5 НЕХ$ (COLOURTYPEBYTE) 

1140 PRINT "BYTES PER LINE =H" | НЕХ$ (BYTESPERLINE);" -";BYTESPERLINE 
1145 PRINT "VISIBLE BLOBS ="; BLOBS 

1150 COLOUROFFSET=-1:IF LINEMODEBYTE IAND #40=#40 THEN COLOUROFFSET=-3 
1179 PRINT "ADRES COLOURBYTE = ADRES DATABYTE" ; COLOUROFFSET 

1180 PRINT OPM$:GOSUB 10000 

1190 NEXT 


1200 PRINT CHR$(12):END 

8000 FOR A=#BFEF TO #8051 STEP -#86:РОКЕ A, #7A+P*#90:POKE A-1,440:PÜKE А-2, #20+ 

WSFXP:POKE А-5, #РЕ+Р : МЕХТ 

8010 FOR A=#BCCB ТО #8809 STEP -#5А:РОКЕ A, #6A+P##80:POKE 8-1,%40:РПКЕ А-2, #20+ 

WSFXP:POKE А-5, HFF*P: NEXT 

8020 FÜR A=#BAAF TO #B9BF STEP —#50:РОКЕ A, #5A+P##00: POKE A-1,#40:POKE А-2, #20+ 

#5F*#P:POKE А-5, #FF*P:NEXT 

8050 FOR A=#B9SF TO #B8F3 STEP -#1A:POKE A, #4A+P*##80:POKE A-1,#40:POKE А-2,#20+ 

#5F#P:POKE А-5, HEF xP: NEXT 

8040 FOR A=#BC45 TO #8921 STEP —#86:POKE A, #20:РОКЕ А-1,0:МЕХТ 

8050 RETURN 

9000 ADRES=BYTE-2*LEN(S$)+2:FOR A-LEN(S$)-1 TD 9 STEP -1 

9010 COLOR-HFF:IF P=1 THEN S-1:COLOR-INT(RND(16)):&1048F: IF COLOR-SFF THEN 9010 

9020 POKE ADRES, ASC (MID$(S$,A, 1) ) :POKE ADRES-3, S*COLOR 

9030 ADRES=ADRES+2: NEXT: RETURN 

10000 CURSOR 0,0 

10010 FOR LINESTART=#B9A7 TO #B9A7-12*BYTESPERLINE STEP ~BYTESPERL INE 

19020 POKE LINESTART,L INEMODEBYTE 

10050 POKE LINESTART-1,COLOURTYPEBYTE 

10040 FÜR CHARBYTE-LINESTART-BYTESPERLINE42 TO LINESTART-2 STEP 2 

10050 IF COLOURTYPEBYTE IAND 440-0 AND LINEMODEBYTE IAND #30<#20 THEN CHARACTER= 

LINEMODEBYTE:GOTO 10100 

10050 IF LINEMODEBYTE IAND #40=0 THEN CHARACTER-RND (256) : COLOURBYTE-RND (256) : GOT 

0 10110 

10070 CHARACTER=RND (128) 

10080 IF LINEMODEBYTE IAND #80=@ THEN COLOURBYTE=COLOURBYTE IXOR #FF:GOTO 10110 

10090 COLOURBYTE=RND(16) SHL A:IF COLOURBYTE=0 THEN 10090 

10190 IF COLOURTYPEBYTE IAND 440-0 THEN COLOURBYTE=COLOURBYTE IAND #BF: POKE LINE 

START-1,COLOURBYTE 

10110 POKE CHARBYTE, CHARACTER 

10120 POKE CHARBYTE-1,COLOURBYTE 

10130 NEXT CHARBYTE : 
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10140 NEXT LINESTART 
10150 C@=0:C1=14:C2=5:C3=15 

10150 IF GETC<>@ THEN RETURN 

10170 C=C1:C1=C2:C2=C3:C3=C:COLORT CO C1 С? C3 

10180 WAIT TIME 20:Б0Т0 10140 

609000 DATA #18, #FF,98, 

50010 DATA #2E, #FF, 176, 

50020 DATA Kon, #FF, 352, 

60030 DATA #86, #FF,528, 

60040 DATA #10, #FF,87.12! CHARACTERS LAST ONE NOT VISIBLE 
60050 DATA #30, #ҒЕ, 173,23! CHARACTERS LAST ONE NOT VISIBLE 
60060 DATA #5A, #FF,345,LAST COLOURBYTE IS COLOURTYPEBYTE OF NEXT LINE 
60070 DATA #86, #FF,519,44 CHARACTERS LAST ONE NOT VISIBLE 
0080 DATA #18, #FF,89, 

60090 DATA #2E, #FF, 176, 

50100 DATA Son, #ҒЕ, 352, 

60110 DATA #84, #FF, 528, 

60120 DATA #18, #FF,87,12! CHARACTERS LAST ONE NOT VISIBLE 
80150 DATA #30, #FF,173,23! CHARACTERS LAST ONE NOT VISIBLE 
69140 DATA #5A,#FF,345,LAST COLDURBYTE IS COLOURTYPEBYTE OF NEXT LINE 
80150 DATA #86, #ҒЕ,519,65 CHARACTERS LAST ONE NOT VISIBLE 
50150 DATA #4, #9,88,МЕХТ LINE STARTS AT LINEMODEBYTE -2 
80179 DATA #4,#0,174,NEXT LINE STARTS АТ LINEMODEBYTE -2 
50180 DATA 44,140,352, 

60190 DATA $4,140,528, 

60200 DATA #4,#0,88,NEXT LINE STARTS АТ LINEMDDEBYTE -2 
50210 DATA &4,40,176,NEXT LINE STARTS АТ LINEMODEBYTE -2 
50220 DATA 44,140,252, 

60220 DATA 84,140,528, 

60240 DATA #4, #F0,88,NEXT LINE STARTS AT LINEMODEBYTE -2 
66250 DATA #4,#F0,176,NEXT LINE STARTS АТ LINEMODEBYTE -2 
60269 DATA #4, #F0, 352, 

50270 DATA #4, #F0, 528, 

50280 DATA #4, #Ғ0,88,МЕХТ LINE STARTS AT LINEMODEBYTE -2 
60290 DATA %4,%Ғ0,175,МЕХТ LINE STARTS АТ LINEMODEBYTE -2 
60300 DATA #4, #FO, 352, 

50310 DATA #4, gro, 529, 


OBJECT CODE MODE 7 

0500 F5 С5 DS Е5 ЗЕ 08 EF 18 ТА 9E 00 ЗЕ OF А5 87 87 

0310 87 87 &F 7C ES OF 85 OE FF 21 EF BF 1E F4 16 42 

20 36 BO 28 36 40 2B 71 2B 77 15 C2 25 05 РВ 1D C2 
3 1E 05 21 6B O3 11 84 00 06 15 7E 12 13 23 05 C2 
0540 ЗА ОЗ 21 27 40 22 А5 02 Öb 10 21 FO BF 11 28 40 
O350 7E 12 13 23 05 C2 50 Oz ЗЕ BF 22 2B 40 32 ОБ 40 
0250 32 33 40 Z2 37 40 El Di Сі Fi C9 27 40 77 BO 37 
0270 40 27 40 27 40 27 40 77 56 EF S6 00 02 F4 2C Ва 


OBJECT CODE MODE J. RELOCATED ABOVE FOT 








0000 FS CS DS ES ЗЕ 08 EF 18 2А 9E 00 ЗЕ OF A5 87 87 
0010 87 87 6F 7C Её OF 85 OE FF 21 EF BF 1E F4 16 42 
0020 34 BO 2B 36 40 2B 71 2B 77 15 C2 25 OD 2B 1D C? 
OD3O 1E OD 21 &B OD 11 84 00 06 15 7E 12 12 23 05 С? 
0040 ЗА OD 21 27 40 22 AS 02 06 10 21 FO BF 11 28 40 
0050 7E 12 13 23 08 C2 50 OD ЗЕ BF 22 2B 40 32 2F 40 
0060 32 33 40 32 37 40 El D1 C1 F1 C9 27 40 77 BO 37 
0070 40 27 40 37 40 27 40 77 56 EF 56 00 02 F4 2C 86 
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DEMO FGT -how to use- 


Bruno Van Rompaey 





ҒӨТ - TOELICHTINGEN 

Presentatie van een programmapakket met FGT : 

dit pakket bestaat steeds uit 5 delen: 

1. BOOTSTRAP LOADER 

2. FGT PROGRAMMA+TABEL 

3. UW BASIC-PROGRAMMA DAT FGT GEBRUIKT 
BOOTSTRAP-LOADER: dit is een BASIC-programma. 

De uitvoering van dit programma heeft tot gevolg dat 
het erop volgende FGT-programma wordt geladen, gevolgd 
door het laden en uitvoeren van uw BASIC-programma. 
Meer info over de DAInamic Bootstrap Loader: DBL 
DAInamic nr 9: 612.45 tot en met 45. 

We illustreren met een voorbeeld: 

Tik : LOAD:RUN 

Het programma dat geladen wordt is de DBL,gevolgd 
door het FGT-programma en een BASIC-programma. 

Dit BASIC-programma demonstreert het gebruik van de 
FGT-parameters: meer informatie in de FGT-tekst. 


MODE os PRINT CHR$(12) 

COLORG 8 3 5 O:COLORT 8 O 8 8 

POKE #BF49,#6A:CURSOR 3,22:PRINT "FGT — TOELICHTINGEN — diDAIsoft" 
CURSOR 4,21: PRINT "LEES ONDERSTAANDE TEKST, DRUK SPACE, KIJK EN WACHT" 
CURSOR 5,19:PRINT "Het programmadeel dat uitgevoerd wordt is :" 
PRINT :PRINT 

LIST 100-180 

GOSUB 12000 

MODE ó 

A$-"diDAIsoft":REM tekst die geschreven wordt 

XZ=50:REM x-coordinaat : begin tekst 

ҮХ=70: КЕМ y-coordinaat : begin tekst 

UCX-21:REM kleur waarin de tekst geschreven wordt 

DFZ-1:REM vergrotingsfactor van de tekst 

ЅРУ=6: КЕМ factor voor de ruimte tussen de karakters 

GOSUB 10000:REM routine 10000-10050 maakt uitvoering 

КЕМ van het FGT-machinetaalprogramma mogelijk 

GOSUB 11000 

CURSOR 10,15:PRINT "We wijzigen XZ-50 in XX-200." 

CURSOR 10,14:PRINT "Alle andere FGT-parameters blijven dezelfde" 
CURSOR 10,13:PRINT "en moeten dus niet meer worden opgegeven." 
CURSOR 10,12:PRINT "Het uitgevoerde programmadeel is :" 

PRINT :PRINT 

LIST 300-310 

GOSUB 12000 
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ЕКЕНИН КЕ ae 





300 
310 
320 
340 
345 
350 
355 
360 
370 
400 
410 
420 
430 
450 
455 
456 
450 
480 
490 
495 
510 
515 
520 
530 
570 
580 
585 
590 
600 
510 
620 
530 
640 
650 
550 
700 
710 
720 
730 
750 
755 
756 
780 
800 
810 
815 
820 
830 
840 
850 
900 
910 
920 
930 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1025 
1026 
1027 


552 - DAInamic 


X*-200:REM wijziging x-coordinaat 

GOSUB 10000 

GOSUB 11000 

CURSOR 10,15:PRINT "We wijzigen УХ=70 іп ҮХ=200 еп" 

CURSOR 10,14:PRINT "de kleur CCZ-21 in CCZ-22." 

CURSDR 10,13:PRINT "Het uitgevoerde programmadeel is :" 
PRINT :PRINT 

LIST 400-420 

GOSUB 12000 

YZ=200:REM nieuwe y-coordinaat : begin tekst 

CCZ-22:REM nieuwe kleur (groen) 

GOSUB 10000 

GÜSUB 11000 

CURSOR 10,17:PRINT "We wijzigen nu DFZ-1 in DF%=0" 

PRINT :PRINT 

LIST 480-490 

GOSUB 12000 

DFZ-0O:REM Het letterformaat wordt kleiner 

GOSUB 10000 

BOSUB 11000 

CURSOR 10,17:PRINT "We wijzigen A$-diDAIsoft in A$=DAInamic" 
PRINT :PRINT 

LIST 570-580 

GOSUB 12000 

A$-"DAInamic":REM Verandering van de geschreven tekst 

GOSUB 10000 

GUSUB 11000 

CURSOR 5,17:PRINT "We veranderen DF%,X%,Y%,CC% in " 

CURSOR 15,15:PRINT "DFZ-2,X2-50,Y4-70 en CCX-23" 

CURSOR 5,13:PRINT "en bestuderen het effect van SPX" 

CURSOR 5,11:PRINT "De waarde van SPX is in instr.150 op 6 gebracht." 
CURSOR 5,9:РКІМТ "Ме voeren bijgevolg volgend programmadeel uit :" 
PRINT :PRINT 

LIST 700-720 

GOSUB 12000 

DFXz2:X4-50: YZ-70:CCX-23 

SPZ-5 

GOSUB 10000 

GOSUB 11000 

CURSOR 5,17:PRINT "We veranderen de waarde van SPX=6 in SPZ-11" 
PRINT :PRINT 

LIST 800-810 

GOSUB 12000 

SPZ-11:REM Wijziging van de ruimte tussen de karakters 

GOSUB 10000 

GOSUB 11000 

CURSOR 5,17:PRINT “We laten nu SPX veranderen van 8 tot 0" 
PRINT : PRINT 

LIST 900-950 

GOSUB 12000 

FOR SP4=8 TO O STEP -i 

CC4=21: GOSUB 10000 

WAIT TIME 2 

EC4=20:GOSUB 10000 

NEXT 

GOSUB 11000 

CURSOR 5,19:PRINT "De parameters X%,Y%,DFZ,CC% en SPL zijn" 
CURSOR 5,18:PRINT "duidelijk de belangrijkste іп de FGT-routine." 
CURSOR 5,17:PRINT "De overige worden verder besproken.” 
CURSOR 5,15:РНІМТ "DE PARAMETER : VF% (vertical flag)" 
CURSOR 5,13:РКІМТ "We initieren SPZ terug op 5 en CCX op 22." 
CURSOR 5,12:PRINT "De waarde van VF% werd nog niet gebruikt." 
CURSOR 5,11:РКІМТ "In alle voorgaande programmadelen was die waarde" 


CURSOR 5, 10:PRINT “bijgevolg 0. We wijzigen die nu in de alternatieve” 


CURSOR 5,9:PRINT "waarde 1." 
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TU BETTE VT TS CCCII аны аны ананы 








1028 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1092 
1094 
1096 
1100 
1110 
1120 
1150 
1140 
1150 
1200 
1205 


1210 


1215 
1220 
1225 
1250 
1240 
1250 
1260 
1270 
1280 
1282 
1285 
1284 
1285 
1290 
1500 
1310 
13540 
1350 
1360 
1370 
1380 
1390 
1395 
1396 
1400 
1410 
1420 
1430 
1440 
1460 
1470 
1480 
1490 
1500 
1505 
1510 
1520 
1550 
1540 
1560 
1570 
1580 
1590 
1595 


PRINT :PRINT 

LIST 1050-1090 

GOSUB 12000 

SPZ-5:CDZ-22 

VFZ-0:REM default-waarde voor de parameter VF% 

GOSUB 10000:WAIT TIME 10 

VFZ=1:REM schrijfrichting wordt over 90 gr gedraaid 

GOSUB 10000 

GOSUB 11000 

CURSOR 5,17:PRINT "DE PARAMETER ZFX (zinflag)" 

CURSOR 5,15:PRINT "We wijzigen de DEFAULT-waarde O in 1." 

CURSOR 5,14:PRINT "Ме zetten VF% opnieuw op zijn DEFAULT-waarde О." 
CURSOR 5,13:PRINT "We wijzigen eveneens X4=40 in X4=140." 

CURSOR 5,12:PRINT "Je merkt wel waarom we dit doen." 

PRINT :PRINT 

LIST 1200-1220 

GOSUB 12000 

VFZ-0: XX-160 

ZFZ-O:REM default-waarde 

BOSUB 10000:WAIT TIME 10 

ZFZ=1:REM schrijfrichting wordt over 180 gr gedraaid 

GOSUB 10000 

GOSUB 11000 

CURSOR 5,17:PRINT "DE PARAMETERS FCX, ЕҒУ EN IDZ" 

CURSOR 5, 15:РКІМТ "In FCX staat 0,1,2 of 3 en wijst hiermee naar de " 
CURSOR 5,14:PRINT "kleuren uit het laatste COLORG-statement." 

CURSOR 5,15:PRINT "FFX bevat O of 1 : indien FFZ-1 wordt, voor" 
CURSOR 5,12:PRINT "dat A$ geschreven wordt, de achtergrond van deze" 
CURSOR 5,11:PRINT "tekst KARAKTER PER KARAKTER іп de kleur gezet," 
CURSOR 5, 10:PRINT "waarnaar FCX verwijst. We wijzigen SP% van 5 in 7." 
CURSOR 5,9:PRINT "WAAROM 2" 

PRINT :PRINT 

LIST 1300-1510 

GOSUB 12000 

SPZ=7: ZFZ=0: XZ240: FÜZ-1:FFAX-1: ID4=10 

GOSUB 10000 

GOSUB 11000 

CURSOR 5,17:PRINT "COLORG-statement is COLORG 8 3 5 O" 

CURSOR 5, 15:РКІМТ "Met FCX-1 wordt de achtergrond rood (3)" 

CURSOR 5,15:PRINT "Met FCX-2 wordt de achtergrond groen (5)" 

CURSOR 5,14:PRINT "Ki jk maar..." 

PRINT :PRINT 

LIST 1400 

GOSUB 12000 

FCZ=2:GUSUB 10000 

GOSUB 11000 | 

CURSOR 5,17:PRINT "Inderdaad, omdat ook CCZ nog naar groen” 

CURSOR 5,16:PRINT "verwees, was de tekst in vorig programmadeel " 
CURSOR 5,15:PRINT "onleesbaar." 

CURSOR 5,14:PRINT “We wijzigen tot slot de parameter ID% van 10 in 5." 
PRINT :PRINT : 

LIST 1500-1505 

GOSUB 12000 

ID4=5:REM IDZ factor voor hoogte gekleurde achtergrond 

GOSUB 10000 

GOSUB 11000 

CURSOR 5,20:PRINT "DE LAATSTE FGT-PARAMETER IS PFZ (positionflag)" 
CURSOR 5,19:PRINT "PFZ neemt alleen O en 1 als bruikbare waarden aan" 
CURSOR 5,18:PRINT "РЕЖ bepaalt de plaats waar een tweede tekst" 
CURSOR 5,17:PRINT "geschreven wordt.We illustreren als volgt:" 
CURSOR 5,16:PRINT "We schrijven eerst de tekst A$=diDAIsoft en daarna " 
CURSOR 5,15:PRINT "de tekst A$=DAInamic op scherm.” 

CURSOR 5,14:PRINT "De eerste maal staat PF% op 1,de tweede maal op 0." 
LIST 1600-1710:GOSUB 12000 
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1600  IDX-O:FCZ-O:FFZ-O:REM def aul t-waarden 

1610 Х7=40:ҮХ=180: DE Le CCZ-23: SPZ=6 

1620 PFZ-1 

1630 A$="DAInamic":GOSUB 10000 

1640 WAIT TIME 50 

1650 As="diDAIsoft":GOSUB 10000 

1660 WAIT TIME 50 

1670 FILL ХХ,УХ XMAX,YMAX 20:REM BLANCO SCH ERM 

1680 PFZ-O:REM WIJZIGING PFX-PARAMETER 

1685 CC4=21:DF%=1:REM WIJZIGING KLEUR EN FORMAAT 

1690 A$="DAInamic":GOSUB 10000 

1700 WAIT TIME 50 

1710 As="diDAIsoft":GOSUB 10000 

1720 GOSUB 11000 

1750 CURSOR 5,17:PRINT "Merk op dat met PFZ-1 de twee teksten naast el-" 

1740 CURSOR 5,16:PRINT “kaar worden geschreven,d.w.z. het einde vam de" 

1750 CURSOR 5,15:РНІМТ "vorige tekst wordt als startcoordinaat van de nieuwe" 
1760 CURSOR 5,14:PRINT "tekst genomen. Merk eveneens op dat indien deze vlag” 
1770 CURSOR 5,13:PRINT "gezet is, zelfs het expliciet opgeven van een ХХ en een 


1780 CURSOR 5,12:PRINT "УХ (instr. 1510) geen invloed heeft ор de plaats waar" 
1790 CURSOR 5,11:РКІМТ "de tekst geschreven wordt: dit verklaart waarom " 

1800 CURSOR 5,10:PRINT "de tekst DAInamicdiDAIsoft (in formaat DFZ-0) geheel" 
1810 CURSOR 5,9:PRINT "rechts op het scherm staat. Deze tekst sluit aan op " 
1820 CURSOR 5,8:PRINT "het einde van de tekst uit het vorige programmadeel" 
1850 CURSOR 5,7:PRINT "De tekst in formaat DF%=1 en onder de vlag" 

1840 CURSOR 5,4:PRINT "PFZ=0 staat uiteraard wel op de nieuwe ХХ en" 

1850 CURSOR 5,5:РНІМТ "YX positie. Omdat tussen het wegschrijven van" 

1860 CURSOR 5,4:PRINT "A$=DAInamic en A$-diDAIsoft de parameters XZ" 

1870 CURSOR 5,3:PRINT "en УХ niet veranderd worden, is het logisch" 


1880 CURSOR 5,2:PRINT "dat beide teksten over elkaar worden geschreven." 
1890 GZ=GETC:IF 67< >52 THEN 1890 

1900 PRINT CHR$(12) 

1910 CURSOR 5,17:PRINT "De teksten die tot nu toe op scherm wer-" 

1920 CURSOR 5,16:PRINT "den geschreven werden aan ñ$ toegekend" 

1930 CURSOR 5,15:PRINT "vanop het toetsenbord. De ingelezen FGT-" 

1940 CURSOR 5,14:PRINT “tabel bevat ook een aantal ontworpen kar-" 

1950 CURSOR 5,13:PRINT "rakters. Deze roep je op met de ASCII-" 

1960 CURSOR 5,12:PRINT "code die tijdens het ontwerpen aan elk" 

1970 CURSOR 5,11:РКІМТ "karakter werd toegekend" 

1980 PRINT :PRINT | 

1990 LIST 2000-2050 

1995 GOSUB 12000 

2000 XZ=70:YZ=200:DF7Z=1:SPZ=8:CUZ=21:REM rood 

2010 AS$=CHRS (13) +CHRS (0) +", "+СНА$ CL) +", "+CHRS (2) +CHRS C14) 

2020 REM op 15 en 14 staan de accolades 

2025 REM ор 0,1 en 2 staan Griekse letters 

2050 GOSUB 10000 

2040 GOSUB 11000 

2050 CURSOR 5,17:PRINT "Volgend programmadeel demonstreert de karak-" 
2060 CURSOR 5,16:PRINT "ters die in de ingelezen tabel beschikbaar zijn." 
2070 CURSOR 5,15:PRINT "Meerdere karakters zijn beschikbaar in het program-" 
2080 CURSOR 5,14:PRINT “ma grafische hulp. De getallen zijn de = 
2090 CURSOR 5,13:PRINT "in de instructie CHR$(code)." 

2100 GOSUB 12000 

2110 DFZ-1:CCZ-21: XX-30:FÜR 4%=0 TO 2:YX-230 

2120 FOR IX-O TO 9:B$-5TR$ (J4$10. O0 142 2 C$-MID$ (BS, 1, LEN(B$) —5) 

2150 А$=С$+"="+СНА$ (975 10+Г%) e GOSUB. 10000: ҮХ=ҮХ-25: NEXT: XZ-X4*75: NEXT 
2140 YZ=230:FOR IZ=30 TO 31:A$-MIDS$(GTR$ (ІХ), 1, LEN(STRS (1%) ) -3. 0) &" z" ( CHR$ (1X): 
БОБОВ 10000: YZ-YZ—25:NEXT 

2145 WAIT TIME 100 

2150 GOSUB 11000 
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2160 
2170 
2180 
2190 
2200 
2210 
2220 
2225 
2250 
2240 
9000 
10000 
10010 
10020 


_ 10050 


F1,FZ 
10040 
10050 
11000 
11010 
11020 
URN 

12000 
12010 
12015 
12020 


MICRO - DICO 


CURSOR 5,20:PRINT "SAMENSTELLEN VAN EEN FGT-PAKKET" 

CURSOR 5,18:PRINT "1. Begin met de BOOTSTRAP LOADER" 

CURSOR 5,16:PRINT "2. Plaats hierachter het FGT-deel: dit doe је met:" 
CURSOR 5,15:PRINT " UT (RETURNTDETS) W29B BFF FGT 298 BFF WIE " 

CURSOR 5, 14:PRINT * indien je de F6T-tabel uit dit programma gebruikt." 
CURSOR 5,13:PRINT " Voor een andere FGT-tabel moet de bovengrens BFF " 
CURSOR 5,12:РКІМТ " aangepast worden." 

CURSOR 5,10:PRINT "3. Zet hierachter je BASIC-programma " 


CURSOR 10,8:PRINT " SUCCES MET JE FGT-EXPERIMENTEN" 
CURSOR 30,4:PRINT " Bruno van Rompaey" 

END 

REM *4*SUBROUTINE FGT 


POKE #2F2,X% MOD 256: POKE 42F3,X4Z/256:POKE #2F4, VX 
POKE 42F5,SPZ:PÜKE #2F4, IDZ 
CAZFCZER4OHCC LE FZ-FFZIIBOTPFZEIIAOFZEZX4820*-VFZ34104DFZ:POKE #220, СХ:РОКЕ #2 


CALLM #300, A$ 

RETURN 

WAIT TIME 3O:FILL 0,0 XMAX,YMAX 20:MDDE О 

POKE 4BF59,466: CURSOR 3,22:PRINT "РОТ - TOELICHTINGEN — diDAIsoft" 

CURSOR 4,21:PRINT "LEES ONDERSTAANDE TEKST, DRUK SPACE, KIJK EN WACHT":RET 


BZ-BETU: GZ-BETC: G4=GETC 
BX-BETC:IF 5Z<>32 THEN 12010 
PRINT CHR$(12) 

MODE &:RETURN 


DCE Data Comunication Equipment ( equipement pour la 
transmission de données 

TIC Timer Interupt Controler (controleur de temporisation 
des interruptions) 

RAM Random Access Memory (Memoire vive) 

ROM Read Only Memory (Memoire morte) 

PROM Programable Read Only Memory(Memoire morte program- 
mable) 

EPROM Erasable & Programable Read Only Memory (Memoire 

morte programmable et effacable) 

АР Micro-processor (Mieroprocesseur) 

DOS Disk Operating System (Controleur pour disquettes) 

TOS Tape Operating System (Controleur pour cassettes ) 

I/O Input output (Entrées Sorties) 

BIT Binary unit-digit (Unitée Binaire) 

PSW Е. Status Word (Mot d'état) 

LSB Less Sienificant Bit (Bit le moins signifiant) 

LSD ` ‘ Digit ( chiffre 

MSB Most ` ‘ Bit (Bit le plus significatif) 

CP/M Control Program for p? (Programme de gestion pour 
microprocesseur ) 

LSI Large Scale Integration (Integration & Haute echelle) 

MDS Micro Device System 
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pew 


IMPINT 


REM Benchmark 1 
PRINT "S" 

FOR K=1 TO 1000 
NEXT K 

PRINT "Е" 

END 


REM Benchmark 2 
PRINT "S" 

K=0 

K=K+1 

IF K<1000 THEN 130 
PRINT "E" 

END 


REM Benchmark 3 
PRINT "5" 

K=0 

К=К+1 

А=К/КжК+К-К 

IF K<1000 THEN 130 
PRINT "Е" 

END 


REM Benchmark 4 
PRINT "5" 

K=0 

К=К+1 

А=К/2*3+4-5 

IF K<1000 THEN 130 
PRINT "Е" 


END 


REM Benchmark 5 
PRINT "S" 

К=0 

К=К+1 

А-К/2%3%4-5 

GOSUB 190 

IF K«1000 THEN 130 
PRINT "E" 

END 

RETURN 


10 MODE 6:COLORG O 1000 
20 FOR Т=1 TO 44 


REM Benchmark 6 
PRINT "S" 

K=0 

DIM M(5) 

K=K+1 
А=К/2*3+4-5 
GOSUB 220 

FOR і-1 TO 5 
NEXT L 

IF K<1000 THEN 140 
PRINT "Е" 

END 

RETURN 


REM Benchmark 7 
PRINT "S" 

К=0 

DIM MC5) 

К=К+1 
АсК/2%3%4-5 
60508 230 

FOR L=1 TO 5 
M(L)=A — 

NEXT L 

IF K<1000 THEN 140 
PRINT "E" 

END 

RETURN 


REM Benchmark 8 
PRINT "5" 

K=0 

K=K+1 

А-кТ2 

B-LOG(K) 

С-5ІМ(К) 

IF K<1000 THEN 130 
PRINT "Е" 

END 








50 DRAW 50+100x(SIN(I)+1),110 150,10+100x(COS(I)+1) 21 
40 NEXT 
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Benchmark timings ` 


MACHINE BMI т? pti виа ms phó BM) . BMB AVERAGE 







































































































Olivetti M20 1,3 4.0 8.1 8.5 9.6 17.4 25.7 1.6 11.5 
сеп агр 
ВВС Micro 1.0 3.1 8.2 8.7 9.1 13.9 21.4 5.1 14.5 
Konroe 8820 EN 4.2 9.9 — . 10.5 11.0 20.1 32.0 3.3 15.4 
Altos ACS 800-2 1.4 4.3 11.3 11.3 12.0 ` 21.2 34.9 2,7 15.4 
Vector Graphic VIP 1.0 3.8 10.9 1.7. 11.5 20.5 32.7 3.4 15.7 
ACT В . 0.9 "LA 8.5 - 9.4 10.1 14.9 23.4 5.5 16,0 
Sharp №1908 0.5 L5 8.5 14.5 13.0 19.0 27.5 5.0 16.8 
Nicroaation Г Plus 1.4 1.2. 113 11.5 21.2 34.9 3.3 15.9 
Miei 801 (44k CP/M). 1.2 ` ; 9.9 3.8 10.5 18.6 29.6 5.4 17.2 
IBM Personal Coaputer 1.5 5.2 12.1 12.6 13.6 23.5 37.4 3.5 17.6 
ә Exleigh Expert (compiled) 5 2. 8.0 8.0 8.0 . 21.0 . 7.0 18.1 
Osborne 01 221,4 4,4 11.7 11.6 12.3 21.9 34,9 5.1 19,9 
1,0 0 6.0 I 
| 1.7 0 KR 4.0 1 
Misi 801 (62k CP/M) 1.7 4.7 12.4 17.2 13.1 24. i 38.6 6.6 21.6 
Intertec Superbrain 1.6 5.2 14.0 13.9 14.8 26.3 43.2 5.5 21.9 
Positron 9000 1.1 2.1 5.4 5.8 7.2 14.9 20.2 12.0 22.2 
DDE SPC/1 | 4.8 5.2 14.7 13.9 14.7 41.1 58.1 2.6 22,4 
ABC 24 : 1.2 4.0 15.0 15.0 16.0 25.0 38.0 8.0 24,4 
Apple ІП 1.7 7.2 13.5 14.5 16.0 27.0 42.5 7.5 24.7 
ACT Sirius 1 2.0 7.4 17.0 17.5 19.8 35.4 55.9 4.3 24.8 
Oki 148000 2.2 6.4 16.8 16.8 17.9 31.8 50.7 $.7 25.0 
Ohio Scientific Challenger C2 4P 1.4 7.8 15.0 16.5 17.8 27.0 39.5 7.5 25.0 
Yero: 820 1.7 5.5 15.5 15.1 16.2 28.9 45.1 8.0 25.1 
NEC PC 8001 1.7 8,3 18.1 17.8 18.8 29.5 49.2 7.0 26.7 
Newbrain 2.0 5.8 19,2 17.5 19,2 32.0 48.8 7.0 26.8 
ABC 80 1.1 2.3 it 12.1 12.5 17.7 23.9 13% 27.1 
Philips Р2000 1.9 5.9 15.8 15.7 16.7 29.8 47.2 8.5 27.3 
Соввобоге VIC 20 1.1 8.3 15.5 17.1 18.3 21.2 42.7 3.9 28.7 
* Exleigh Expert (interpreted) 2.5 1.2 18.5 18,5 19,3 35.0 52.0 8.5 29.8 
le II š . 6.0 17. 19,1  . . 28.6 44.8 10. 30.4 
Hewlett Packard HP85 1.8 3.8 16.3 16.5 17.7 30.0 44.8 12.7 32.2 
Pasca 640 2.0 7.0 19.0 18.0 20.0 36.0 57.0 10.0 32.4 
Sharp М180К 1,4 9.4 16,3 22.5 25.4 36.8 $1.1 10.2 33.1 
Exidy Sorcerer 1.8 0.0 20.7 22.2 24,3 37.6 57 9.6 3.3 
Sharp MI80A 1.5 9.2 16.4 22.8 25.4 37.7 55.0 10.1 33.7 
Cosaodore CBM 8032 1.7 10.0 18.4 20.3 21.9 32.4 $1.0 11.9 34.3 
Transaa Tuscan 2.3 13.0 26.0 27.0 32.0 48.0 68.0 0 54.5 
Cosaodore РЕТ 2001 1.7 9,9 18,4 20.4 21,0 32.5 50.9 12.3 34.7 
Coapucolor [I 2.0 10,9 224 23.9 25.7: 38.7 55.2 10.2 35.1 
Dragon 32 1. 10.2 19.7 21.6 23.3 34.3 50.0 ` 12.9 36.2 
Hewlett Packard HPBb 3.0 5.2 19.4 18.8 20.4 36.5 56.5 13.4 36.7 
‚. Hitachi Peach . 2.0 11.0 24.0 25.0 22.0 4.0 78.0 ` 10.0 39.5 
Tandy TRS-80 Color Coaputer 2.0 1,3 22.2 25,9 27.0 41.5 ым 13.0 39.9 
` Panasonic JD700 2.8 9.1 24.6 24.7 | b. Д 49. il. 
SBS 8000 1.9 9.4 29.0 29.0 31.6 44.0 82.5 11.2 ГИ 
Heath H89  (Mbasic) 2.5 9.2 25.8 26.0 27.0 46.5 73.2 13.0 12.5 
Tandy TRS-BO Model І Level II 7 1.8 7 Қ I . 
Video Genie | 2.7 11.6 28.0 28.5 3.3 $1.9 81.0 и. 44.0 
Crosesco Systea Three 7 
Ohio Scientific Challen 7 
Sinclair 1181 (fast воде} 4.5 6.9 16.4 15.8 18.6 49.7 68.5 22.9 51.2 
Sinclair Spectrua 4.8 8.7 21.1 20.4 24.0 55.3 80.7 25.5 58.5 
Sharp PC3201 4,0 13.5 35.5 35.5 38.5 67.0 108.0 25.0 69.0 
Casio 417000 2.5 9.0 24.0. 24.0 26.0 42.0 50.0 36.5 9.1 
Atari 400/800 2:3 7.4 19,9 2.2 26.8 40.7 61,5 43.1 76.6 
Texas ТІ 99/4 2.9 8.8 22.8 24.5 26.1 . 61.6 84.4 38.2 76.6 
Texas 1199/4А (standard) 3.0 - 9.0 24.0 24.8 25.2 61.9 84.6 38.4 77.2 
Texas 1199/4А (extended) 4.5 18.5 40.0 40.1 42.0 © 96,4 140.3 24.0 78.2 
Periflex 630/48 | 45 19.3 27.5 28.5. 31.8. 59.0 79.5 50.0 105.1 
тыл — — — 24 10 — 350 95 — n0 99 ыл о Ina 
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program identification 


title 5 MUL TIPUZZLE 
author Christian POELS 


purpose 
comment 


a game of calculation & strategie 





{ 
! ! 
! x 5x ENTREES FRECEDENTES z { 
i 5 4 | 
+ ы кы с. Colonne 1 : 3 4 * 
! k * t 4 Colonne 2 : S : 
! X x RS Colonne 5 : O ! 
! ee эү, Colonne 4:7 | 
! X * 1k 5 43 Colonne 5 : 1 2 & : 
1 1 
‘Nombre de coups joues : 8 | 
'Nombre de coups manques : 6 ! 
Nombre de chiffres trouves : 7 I 
H ' 
+ESSAI Мо. 9 + 
1 t 
Quel est votre chiffre? ! 
'Guelle est la colonne?s ! 
1 1 
О Ü 
az vn EE vn va fn Ea EE 


1 REM .......... Copyright Christian POELS 
2 REM .......... 10, rue des Bas-Sarts 

3 REM .......... B-4100 Seraing - Belgique 
4 REM .......... Tel.: (041) 37.16.06 

5 POKE #FFOS, 10: CLEAR 1000 

7 MODE O:COLORT 12100 


10 REM 
20 GOSUB 100 
30 РОКЕ #FFOS, 255 
40 GOSUB 200 
50 GOSUB 300 
50 PRINT :PRINT :PRINT "Voulez-vous jouer une autre partie (0/N)?"; 
70 RE=GETC: IF RE-79.0 THEN 30 
71 IF КЕ<>78.0 THEN 70 
80 РОКЕ #FFOS, 255 
90 END 
538 100 GOSUB 11000 





